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TO ALL WHOM IT MAY CONCERN: 

BE IT KNOWN THAT Hiroslni Kobata, a citizen of .Japan, having 
a residence at 271 Clinton Road, Brookline, Massachuetts 02146 
has invented a certain new and useful MARKETING DATA DELIVERY 
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FIELD OF INVENTION 



This invention relates to the provision of data over the 
Internet and, more particularly, to a system for ascertaining; 
the demography of the users of the Internet. 



BACKGROUND OF THE INVENTION 

With the increased usage of the Internet comes the problem 
of deciding how and where to direct the information from the 
provider's point of view. With the advent of so-called "push"? 
systems in which providers have direct access to the PC at the 
client side in a client/server application, it is increasingly 
important that the provider be provided with information so asj 
to be able to direct the services to those users who are most 
likely to be interested. 

In the past, the only type of demographic information that 
was available was to "guess" the usage of the system through use? 
of sampling research data. In systems in which sampling! 
research data is involved, a given research company will ask a; 
major provider how many pieces of software were sold to the 
various users. Based on the data of the sales of the enabling' 
software, the research company, utilizing mathemat icalj 
techniques, provides demographic information to the provider? 
based on a series of assumptions about the user. 

However, the utilization of statistics alone based on the 
sales of software, for example, is not at all accurate in terms^ 
of providing the provider with targeted information as to thej 
" real" demography of the user or client . For instance, it is^ 
impossible through statistics alone based on a single input suchS 
as sales to derive information relating to the CPU size and; 
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speed at the user, hard disk space availalle, information! 
relating to the network connection such as dial-up cable modem! 
connection information and ISDN connections, a list of thej 
inventories indicating the applications running on the 
particular computer involved, as well as peripherals such asi 
sound cards connected to the computer at the client side.; 
Moreover, there is no way to ascertain the log — in history fori 
each of the Internet users, such that critical information fori 
the providers is not existent . 

Critical information which is not available from traditional? 
research is infrastructure information for a particular PC, such 
as CPU power, viewer, sound card and Internet connection? 
information . 

What is meant by the term "viewer" is what type of protocol^ 
is being run on the machine such as MPEG, QUICKTIME, AVI, and 
PDF. 

The sum total of this infrastructure information would be 
useful for the decision maker at the provider as to decide 
whether or not, for instance, it is worth the money to make 3; 
megabytes of MPEG video available for advertising based on thd 
above infrastructure demography. Thus , it is impossible f or\ 
this decision maker to ascertain whether the Internet! 
advertisement delivery will be efficient and worth enough toi 
justify the cost, much less, for instance, providing an Internet! 
video advertisement, the cost of which must be justified by? 
assuring a number of targeted viewers for the subject matter of 
the video advertisement. 

SUMMARY OF THE INVENTION 

In order to provide such needed data to a content provider 
that wants to use the Internet connection, in one embodiment, 
client software is installed at each PC which can detect the 
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infrastructure of the PC. The software which is provided by the! 
provider to the user enables sensing CPU power, hard disk space,; 
the applications running or installed, network connectivity and 
the log-in history. Since each client software has a unique 
serial number, sensing the serial number at the server side 
provides for rapid transfer and loading of a database with! 
infrastructure data which is reported to the serverS 
periodically, for instance, every two seconds. At the server 
side, the database can be updated frequently to provide instant 
demographics of the particular user. It will be appreciated 
that the database can be filtered by such factors as location so 
that the provider can be apprised of what locations would be: 
most interested in the content that the provider wishes toi 
transmit. This permits the provider to be able to limit the 
broadcast of the data to selected locations. 

It will be noted that the client software is delivered by 
the provider to the end user. By so doing, each provider is 
apprised of its own members, thus to provide the provider with 
the demographics of its own members or subscribers. This 
enables the content providers to be able to decide the content 
size to be delivered, as well as the viewer software, and makes 
the decision as to how much and what should be provided to an 
individual user tailored to the particular user's requirements. 

For instance, in one operative embodiment, if a provider 
wants to make a two minute commercial, this can take as much 
eight megabytes to transmit. At this point, the provider must; 
select what type of viewer software is required to play the;! 
eight megabytes of information, whether it is MPEG, QUICKTIME ori 
some other format. By this manner, the provider can ascertain 
in real time whether or not the hard disk space is available at 
the user. 

The distribution curve that is generatable through the 
utilization of the subject system, permits a bell curve to be 
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; formed in which hard disk space can be presented in terms of the 
number of users . Assuming that 8 megabytes is required , it can 
be determined what percentage of the channels are occupied by 
the information to be transmitted, and thus the number of PC ' s 
that are available to receive the intended transmission. If, 
for instance, 8 megabytes represent 80% of the channels, then; 
the provider may well be advised that there is a sufficient 
number of PCs that can receive the information to commit the 
resources to providing the content and transmitting it. 

; As will be appreciated, the subject system permits the 

content provider to make a decision as to whether or not to 
invest in a given project based on real-time demographics of 
users connected to the Internet. Note that in general, 
demographics are from members of the provider since the provider; 
provides the client software to the end user. As a result, not 
only can content be tailored to the audience which could receive^ 
it, but critical decisions can be made as to whether to providej 
the content at all based on real-time sensing of the demography 
of the users . 

The result is that by use of the subject system, providers 
can make business decisions such as the size of the video 
message, the viewer of the video/audio message, and the timing 
for hyper-advertisements through pulling or pushing at 
appropriate times. The subject system also makes possible other 
decisions which are critical to the economic utilization of the 
] Internet. Furthermore, the demographic information permits 
marketing decisions as to where to sell the software and 
hardware based on the infrastructure data and the destination of 
the PC, namely its IP address. 

In summary, in an Internet— based client/server application, 
a system is provided which detects demographics of a client 
including CPU power, hard disk space, applications installed, 
network connectivity and log-in history so as to provide this: 
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infrastructure related information detailing client usage of the[ 
Internet to the service provider. In one embodiment, each user! 
is provided with software having a unique serial number. Having! 
the serial number , infrastructure data is checked at the client; 
side and reported to the server periodically, with the server: 
updating a database with the infrastructure data from each PC J 
In one embodiment, the database is filtered by factors such as 
location of the client and an indication of which providers; 
delivered software to a client* After filtering, the service; 
provider can obtain various demographics such as the demography 
of hard disk space, CPU power and viewers. In one embodiment, 
the demographics are used at the server to automatically select; 
the contents to be transmitted to the particular client. Thus: 
the provider can send the most appropriate contents to the mosti 
appropriate client based on demographic information of the: 
client's infrastructure. 

Moreover, having derived the above demographic information,; 
in one embodiment, an automatic selection system uses the 
demographics to provide specially tailored contents to the 
client. Files can thus be tailored to the client's ability to 
receive the file or even as to what content should be 
delivered. Thus whether full frame video should be sent,? 
whether audio should be sent, or indeed what format is! 
appropriate can be selected. 

BRIEF DESCRIPTION OF THE DRAWINGS 

These and other features of the subject invention will be 
better understood taken in conjunction with the Detailed 
Description in conjunction with the figures of which: 

Figure 1 is a block diagram of the subject system 
illustrating the ability to provide a database with real-time} 
demographic information from the users, along with a filter 



system to be able to tailor the demographic output to be the^ 
most useful to the provider; 

Figure 2 is a graph illustrating the results of the subject? 
system in which hard disk space is graphed against the number of 
wsers ; 

Figure 3 is a bar graph illustrating CPU power as a function 
of the number of users; 

Figure 4 is a block diagram and flow chart illustrating one; 
embodiment of the subject system indicating client-initiated; 
data reporting based on client-installed software from the' 
provider; and, 

Figure 5 is a block diagram of the use of the demographic^ 
information for automatic delivery selection by the server, 

DETAILED DESCRIPTION 

Referring now to Figure 1, in the subject system, a provider 
10 provides software to each of clients 14 which causes the 
associated computer connected to the Internet to transmit not 
only a serial number, but also the IP address, CPU information, 
hard disk space, network connection, a list of inventories , 
peripherals such as sound cards, and the log-in history! 
associated with each individual client. Client and server are; 
connected via the Internet , here diagrammatical ly i 1 lust rated at 
16 . 

The information is passed to a database 18 at the provider I 
which, optionally, is provided with a database filter 20 so that 
the data may be filtered as to location as illustrated at 22 or 
is further filtered by the provider as illustrated at 24. ItJ 
will be appreciated that there are other filter functions that 
can be applied to the database for the filtering of the" 
statistics garnered by the subj ect system. 
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If, as illustrated, the statistics come from members of the 
provider because the provider provides the client software, thenj 
the provider is provided with information relating to hisj 
members and his members alone. 

The data, when retrieved, may be in the form of a graph 26? 
of hard disk space versus number of CPU's or, alternatively, can 
be provided in terms of CPU power as i 1 lust rated at 28 , with the; 
information being developed at the server side, here illustrated? 
at 30, and with the information from the server side being! 
delivered to the provider after it has been derived. 

Referring now to Figure 2 , a graph is shown of hard disk| 
space versus the number of users which, as will be appreciated, 
is developed in a bell shaped curve 4 0 with one end of the curve? 
illustrating the number of users having only 1 kilobyte of disk 
space and with the other end reflecting 1 gigabyte of disk 
space. As mentioned hereinbefore, it can be seen that with a 
megabytes of information to be transmitted as illustrated by 
line 42, shaded area 46 represents approximately 80% of the 
channels and thus, in one instance, over a million PC's having! 
the capability of receiving 8 megabyte transmissions. From 
this graph, a decision maker can decide that it is worth the 
time, effort and money to invest in the aforementioned two 
minute advertising sequence, with the graph giving the provider 
an instant view of his audience. 

Referring now to Figure 3 , what is shown is a bar graph 50 
which charts CPU power versus number of CPU's, knowing computer 
power can lead to deductions about peripherals. For instance,; 
one can deduce whether or not there is a sound card associated 
with a given PC. Thus in terms of CPU power, one can deduce if 
there is a 155 megahertz 486 processor installed, and/or if a; 
sound card is in existence, because such computers usually come 
with a sound card installed. This being the case, it can bd 
assumed that multimedia transmissions can be handled by such a; 
CPU . 
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Additionally , not only will the providers be provided with 
information regarding the capability of the particular CPU toi 
receive multimedia transmissions, these user * s are also a very; 
good target for the sales of sound cards. As a result, messages 
advertising sound cards can be sent directly only to those users? 
which have sufficient CPU power. 

In general, the client software is delivered along with 
applications software by the provider and is transparent to the 
user. At the provider's election, data relating user's identity 
can be inhibited so that the system is a pure anonymous 
demographics system. The system can be made anonymous simply by 
sensing only the IP address of the user as opposed to the user's 
identity. Thus, while the user's identity remains anonymous, 
his buying habits and usage create a powerful tool to direct 
advertising and other content to the user based on his prior 
usage, the ability of a CPU to receive the intended message and 
other factors. Note, however, that providers may seek to 
provide targeted advertisement and content to a particular user , ? 
assuming that the provider has the user ' s permission to do so . 

Referring now to Figure 4 , a flow chart is presented in 
which server 2, here illustrated at 60, sends out to client 62 a 
client software package 64 which is installed as illustrated at 
66 at the client's PC. The software checks the infrastructure 
data of the client as illustrated at 68 and reports the data as 
illustrated at 70 through the Internet through server 1, here 
illustrated at 72, which updates the data to its database as 
illustrated at 74. The output of the database is filtered at 76 
based on functions such as provider ID or other factors . Thd 
filtered data is used at 78 to create a demography for the 
particular f i Itered factor such as hard disk space . 

As illustrated at 80, the result of the demography is 
provided to provider by sending this demography to server 60 
such that a decision maker 82 relying on data from Server 2 caii 
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make the appropriate decisions as to what to send out, e.g. 4 MBj 
MPEG, 3 00 kB PDF etc. 

Referring now to Figure 5, having derived the infrastructure 
demographies of a client's PC, it is possible to tailor the! 
contents and delivery from a server to a given client in a 
so— called "push" system. First, based on log— in history, hard 
disk space and a variety of factors such as available as 
demography 10 0 , a content provider can decide whether the 
proposed content would be suitable to the infrastructure of the 
client. Based on infrastructure information relating to actual 
use of a client's PC, including applications previously run, it? 
is possible to ascertain the user's willingness or recept iveness 
to receiving the proposed content. Thus the content need only 
be pushed to users who in all likelihood would welcome receipt. 

Additionally, it is possible for the content provider to 
have several different versions of the content. One version 
might require MPEG compatibility and a sound card. Another? 
version might be a reduced file size or just a document. ] 

As can be seen from Figure 5 , an automatic delivery system 
104 is provided which selects the destination of the contents^ 
based on the ability of a client to receive a given version of 
the contents. This is done by matching the requirements of the 
particular version of the contents with the demography of the 
client as shown at 106. Assuming only one version 116 of the 
contents, version requirements 117 for this version are matched 
at module 106 with the infrastructure of the clients. For those 
clients having infrastructure which can handle the particular 
version, destination selection module 110 switches version 116 
to the appropriate clients. 

Thus, upon a match, selection module 110 selects the 
destinations most appropriate for particular version of use the^ 
contents, at which time the version 116 is transmitted directly 
to the client's PC in a push operation as illustrated at 112. 
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The result is the receipt of a version appropriate for the 
infrastructure of the particular client as illustrated at 114. 

As mentioned above, for contents available in different! 
versions, it is possible to select from different versions off 
the contents, here shown at 118 and 120, in order to match the^ 
pushed version to the client's infrastructure. 

Each version has a set of corresponding version requirements 
119 and 121. These version requirements are supplied to ? 
matching module 106 which determines not which clients can; 
receive a given version, but rather which versions can be sent: 
to which clients. Selection module 110 then couples the; 
appropriate version to the appropriate clients in a push 
operation . 

What is now presented is a series of programs and C++ with 
the first of the programs being that which is provided to the 
client to query his particular PC and with the second program 
i 1 lust rating the retrieval of the data , the creation of the 
demography, and the transmission of the demography over the net 
to the server associated with the content provider: 



// Systemlnventory . cpp 



Miscellaneous utility routines. 



^include "stdafx.h" 

#include "stdlib.h" 

^include <assert . h> / / JRW 

#include <f stream.h> 



//#include <shlguid.h> 
extern "C" { 
#include <winnetwk .h> 
# include <shellapi . h> 
#include <shlobj . h> 
^include <objbase.h> 
#include <initguid.h> 
#include <mmsystem.h> 



} 



#include "winnls . h" 



# include " atpattrib . h" 
^include "Utility .h" 



// For Get Systemlnventory 



# if clef DEBUG 

#define new DEBUG NEW 

#undef THIS_FILE 

static char THIS__FILE[] = FILE ; 

#endif 

// Compute total free filespace on a drive . . . 

DWORDLONG Get FreeFi lespace ( const char * driveRootPath) 

{ 

DWORDLONG freeSpace; 

DWORD sectorsPerCluster; 

DWORD bytes PerSec tor ,- 

DWORD numberFreeClusters ; 

DWORD numberTotalClusters ; 

if ( ! GetDiskFreeSpace (driveRootPath, 

&sectorsPerCluster, &byt esPerSector , 
toumberFreeClusters, &numbe'rTotalClusters) ) 
freeSpace = DWORDLONG ( - 1 ) ; 

el se { 

freeSpace "= sectorsPerCluster ,- 
freeSpace * = by tesPerSector ; 
freeSpace *= numberFreeClusters; 
} 

return freeSpace ; 

} 

/ / Get a big inventory of this system: 

// ... this is a bit of a grab-bag, but it is convenient for 
// getting all the information at once to set up to the server 

#def ine FANCY__I NVENTORY TRUE 

void GetSystemlnventory (AtpAttrib & inventory) 
{ 

CString tmp ; 
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// Amount of physical RAM 



{ .. 
MEMORYS TATUS memoryStatus; 

meraset ( &memoryStatus , 0, sizeof (memoryStatus): ) ; 
memoryStatus .dwLength — sizeof (memoryStatus ) ; 
GlobalMemoryStatus (&meraoryStatus) ; 

tmp . Format ( " Physical RAM=\ " %ld\ " ,! , memoryStatus . dwTotalPhys) ; 
inventory . ParseLine (tmp) ; 

} 

// Amount of free disk temp space ... 
{ 

char * pathBuffer = NULL ; 

DWORD bufSize = GetTempPath(0, pathBuffer) +.5; 
pathBuffer = new char [bufSize] ; 
if (o == GetTempPath {bufSize, pathBuffer)) 
{ 

HACKassert ( 11 failure on GetTempPath", FALSE) ; 

inventory . ParseLine ( " TempDirectoryFilespace=\ » - i\ ) ; 
} 

else{ 

CString driveLetter (pathBuffer) ; 

driveLetter = driveLetter .Left (3) ; 

trap . Format ( "TempDirectoryFilespace=\ "%Ld\ " " , 

GetFreeFilespace (driveLetter) ) ; 
inventory . ParseLine ( tmp) ; 

} 

delete []"" pathBuffer; 3 

} 

// Amount of free disk space in document directory ... 
{ 

/ / Note : assumes drive letter in start of string : 

// is there some system call we can use to get it from a pathname 
// without an explicit drive letter? 

CString pathName { inventory [ " IDF__DIRSCTORY" ] ) ; 

pathName = pathName . Left (3) ; 

tmp .Format ( " IDF DIRECTORYFiiespace=\ " %Ld\ " " , GetFreeFilespace (pathName) ) 

inventory . ParseLine ( tmp) ; 

} 

//OS version number: 

OSVERSIONINFO osVers ionlnf o ; // We will use this later . . . 

{ 

memset ( &osVersionInfo , 0 , sizeof (osVersionlnfo) ) ; 
; osVersionlnf o . dwOSVersionlnf oSize = sizeof (osVersionlnfo) ; 
if (0 != GetVersionEx(&osVersionInfo) ) 

{ 

char * osName = NULL ; 

if (osVersionlnfo . dwPlatf ormld -- VER_PLATFORM WIN3 2 NT ) 

os Name = "WinNT"; // WinNT Yes, Win9 5 No, Win32s No 

else if (osVersionlnf o.dwPlatf ormld == VER_PLATFORM_WIN3 2_WINDOWS ) 
osName = "Win95"; // WinNT Yes, Win95 Yes, Win32s No 

else if (osVersionlnf p . dwPlatf ormld == VER_PLATFORM_WIN3 2 s ) 

osName - "Win32s " ; // WinNT Yes, Win95 Yes, Win32s No 

else 

2 
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os Name = "Windows (Unknown) " ; 
tmp . Format (" %s %d . %d : Build %d : %s", 
os Name , 

osVersionlnfo . dwMaj orVersion , 

osVersionlnfo . dwMinorVersion, 

osVersionlnfo . dwBuildNumber, 

osVersionlnfo . szCSDVersion) ; 
tmp = "OSVersion=" + AtpAttrib : : QuoteString ( tmp ) ; 
inventory. ParseLine (tmp) ; 

} 

} 

// Is there a CD-ROM? (Return the drive letter, else empty) 
// Note: if more than one, we only count the first one. 

{ 

char driveName [] = "Z: " ; 

tmp . Format ( "CD_ROM=\ " %s\ " " , " " ) ; 

for (driveName [03 = 'a'; driveName [0] <= ' z' ; driveName [0] ++) 
{ 

if ( DRIVE CDROM = = GetDriveType (driveName ) ) 

{ 

tmp . Format ( "CD_ROM=\ " %s\ " " , driveName) ; 
break ; 

} 

} 

inventory . ParseLine ( tmp) ; 

} 

// Network present, Slow machine, etc. from GetSystemMetrics . 

{ 

int value ; 

value = GetSystemMetrics ( SM NETWORK) ; 

tmp . Format ( "Ne two rkPresent=\ n %s\ " " , {(value & 0x01)1=0) ? "TRUE" : "FALSE 
inventory . ParseLine ( tmp) ; 

value = GetSystemMetrics ( SM_SLOWMACHINE ) ; 

tmp . Format (" SlowMachine=\ " %s\ " " , value ? "TRUE" : "FALSE") ; 
inventory . ParseLine ( tmp ) ; 

} 

// Stuff from SystemParametersInf o : Windows Plus! extensions . . . 
{ 

BOOL bStat = SystemParametersInf o (SPI_GETWINDOWSEXTENSION, 1, NULL , 0); 
tmp. Format ( "WindowsPLUS=\"%s\" " , bStat ? "TRUE". : "FALSE"); 
inventory . ParseLine (tmp) ; 

■ } . 

// Stuff from GetSystemlnf o : CPU type, etc. 

{ 

CString tmp, tmp2 ; 
SYSTEM INFO systemlnfo,- 

memset ( &systemlnf o , 0 , sizeof ( systemlnf o) ) ; 

GetSystemlnf o (Scsystemlnfo) ; // Doesn't work on Win32s. 

/ / wProcessorArchitecture : 
#ifdef FANCY INVENTORY 
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if (systemlnfo . wProcessorArchi t ecture = = PROCESSOR_ARCHITECTURE INTEL) 

tmp = "PROCESSOR^ARCHITECTURE^INTEL" ; 
else if (systemlnfo . wProcessorArchitecture==PROCESSOR__ARCHITECTURE_MlPS) 

tmp = '» PROCESSOR_ARCHITECTURE__MIPS " ; 
else if (systemlnfo . wProcessorArchitecture==PROCESSOR ARCHITECTURE_ALPHA) 

tmp = " PROCESSOR_ARCHI TECTURE ALPHA" ; 

else if (systemlnfo . wProcessorArchitecture==PROCESSOR_ARCHITECTURE_PPC) 

tmp = "PROCESSOR_ARCHITECTURE_PPC" ; 
else if (systemInfo.wProcessorArchitecture==PROCESSOR_ARCHITECTURE_UNKNOWN) 

tmp = " PROCESSOR_ARCHITECTURE__UNKNOWN" ; 

else 

tmp = " PROCESSOR_ARCHITECTURE__UNUNDEFINED" ; 
trap2 .Format ( "%s" , (const char *) tmp) ; 

tmp = " ProcessorArchitecture= " + AtpAttrib: :QuoteString(tmp2) ; 
inventory . ParseLi ne ( tmp ) ; 
#endif 

tmp2 . Format ( " %d" , systemlnfo . wProcessorArchitecture) ; 

tmp = " SYSTEM INFO . wProcessorArchitecture^ 11 + AtpAttrib: :QuoteString(tmp2) ; 

inventory . ParseLine { tmp) ; 



// dwNumberOf Processors : 
ttifdef FANCY I NVENTORY 

tmp . Format ( " Numbe rOfProcessors = \nid\ " " , systemlnfo . dwNumber Of Processors ) ; 

inventory . ParseLine (tmp ) ; 
#endif 

tmp . Format ( " SYSTEM INFO . dwNumberOf Processors = \ " %ld\ " " , 

systemlnfo .dwNumberOf Processors) ; 
inventory . ParseLine (tmp) ; 

// wProcessorType Supposedly only used in Win95 . . - 

#ifdef FANCY I NVENTORY 

if (systemlnfo . dwProcessorType == PROCESSOR_INTEL_3 8 6 ) 

tmp = " PROCESSOR_INTEL_3 8 6"; 
else if (systemlnfo. dwProcessorType = = PROCESSOR_INTEL_4 86 ) 

tmp = " PROCESSOR_INTEL_4 8 6"; 
else if ( systemlnfo . dwProcessorType == PROCESSOR_INTEL__PENTIUM ) 

tmp = " PROCE SSOR_ I NTEL_ PENTIUM" ; 
else if ( systemlnfo . dwProcessorType == PROCESSOR_MI PS_R4 0 0 0 ) 

tmp = " PROCESSOR_HI PS_R4 0 0 0"; 
else if { systemlnfo . dwProcessorType = = PROCESSOR_ALPHA_2 1 0 64 ) 

tmp - "PROCESSOR_ALPHA_210 64 " ; 

else 

tmp = "PROCESSOR^UNKNOWN" ; 
tmp2 . Format (" %s" , (const char *) tmp); 

tmp - "ProcessorType=" + AtpAttrib :: QuoteString (tmp2 ) ; 
inventory. ParseLine (tmp) ,- 
#endif 

tmp2 . Format ( " %d" , systemlnfo . dwProcessorType) ; 

tmp = "SYSTEM_INFO . dwProcessorType = " + AtpAttrib: :QuoteString(tmp2) ; 
inventory . ParseLine ( tmp) ; 

// wProcessorLevel : gets kind of fancy for different models . . . 
// Note: not used on Win95 - . . 

if (osVersionlnf o. dwPlatformld 1= VER_PLATFORM_WIN3 2_WINDOWS ) 

{ . 

#ifdef FANCY_ I NVENTORY 
trap = " " ; 

if (systemlnfo . wProcessorArchitecture PROCESSOR ARCHITECTURE INTEL) 

{ // 3 == 386, 4 - 486, 5 = Pentium 
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if ( systemlnf o . wProcessorLevel == 3) 

tmp = "Intel 80386" ; 
else if ( systemlnfo . wProcessorLevel - - 4) 

tmp = "Intel 80486"; 
else if ( systemlnfo . wProcessorLevel == 5) 

tmp = "Intel Pentium" ; 

else 

tmp = " Intel Unknown" ; 

} 

else if (systemlnfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_MIPS ) 
{ // 4= R4 000 

i f ( systemlnfo . wProcessorLevel = = 5 ) 
tmp = "MIPS R4000" ; 

else 

tmp = "MIPS Unknown" ; 

} 

else if ( systemlnfo . wProcessorArchitecture == PROCESSOR_ARCH I TECTURE_ALPHA ) 
{ // 21064, 21066, 21164 

if ( systemlnf o . wProcessorLevel — 21064) 

tmp = "Alpha. 21064"; 
else if { systemlnfo . wProcessorLevel -~ 210 6 6) 

tmp = "Alpha 21066" ; 
else if ( systemlnf o - wProcessorLevel = = 21166) 

tmp = "Alpha 21166" ; 

else 

tmp = "Alpha Unknown" ; 

} 

else if (systemlnf o .wProcessorArchitecture PROCESSOR_ARCHITECTURE_PPC) 
{ // 1 601, 3 603, 4 604, 6 603+, 9 604+, 20^620 



if 


( systemlnfo 


wProcessorLevel 


1) 


tmp 


= "PPC 601" 






else if 


( systemlnfo 


wProcessorLevel 


= = 3) 


tmp 


= "PPC 603" 






else if 


( systemlnfo 


wProcessorLevel 


~- 4) 


tmp 


= "PPC 604" 






else if 


( systemlnfo 


wProcessorLevel 


= = 6) 


tmp 


= "PPC 60 3 + 






else if 


( systemlnfo 


wProcessorLevel 


= = 9) 


tmp 


= "PPC 604+ 






else if 


{ systemlnfo 


wProcessorLevel 


= = 20 


tmp 


= "PPC 62 0" 






else 









tmp = . "PPC Unknown" ; 

} 

// Include raw value, just in case Micro$oft extends something on us ... 
tmp2 . Format (" %s " , (const char *) tmp); 

tmp - "ProcessorLevel=" + AtpAttrib : : QuoteStr ing ( tmp2 ) ; 
inventory . ParseLine (tmp) ,- 
#endif 

tmp2 . Format ( " %ld" , systemlnfo .wProcessorLevel ) ; 

tmp = " SYSTEM INFO . wProces sorLevel = " + AtpAttrib: : Quot eSt ring ( tmp2 ) ; 

inventory . ParseLine (tmp) ; 

} 

// wProcessorRevision: gets really fancy for different models . - . 
// Note : not used on Win95 ... 

if (osVersionlnfo. dwPlatf ormld != VER__PDATFORM_WIN3 2_WINDOWS ) 

{ 

#ifdef FANCY INVENTORY 

tmp = " " ; 
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if ( systemlnfo . wProcessorArchitecture PROCESSOR_ARCHITECTURE_INTEL) 

{ // 3 == 386, 4 =486, 5 = Pentium 
if ( (systemlnfo.wProcessorLevel ==3) j J 
{ systemlnfo . wProcessorLevel = = 4)) 

{ 

if ( ( systemlnfo . wProcessorRevision & OxFFOO) = = OxFFOO) 
tmp.Format ("Model %d Step %d", 

( ( systemlnfo . wProcessorRevis ion & OxOOFO) >> 4) - OxA, 
( systemlnfo .wProcessorRevision & OxOOOF) >> 4) ; 

else 

tmp . Format ( "Model %c Step %d M , 

({ systemlnfo .wProcessorRevision &. OxFFOO) >> 8) + 'A', 
( systemlnfo . wProcessorRevis ion & OxOOFF) ) ; 

} 

else if (systemlnfo.wProcessorLevel == 5) 
tmp . Format ( "Model %d Step %d" , 

( (systemlnfo .wProcessorRevis ion &. OxFFOO) > > 8), 
( systemlnfo .wProcessorRevis ion & OxOOFF)); 

else 

trap . Format ( "UNKNOWN ( %d) " , systemlnfo . wProcessorRevision & OxFFOO); 

} 

else if (systemlnfo . wProcessorArchitecture =~ PROCESSOR_ARCHITECTURE_MIPS ) 
{ // 4 = R4000 

tmp . Format ( " Revision %d ,T , systemlnfo .wProcessorRevision & OxFFOO); 
} 

else if (systemlnfo . wProcessorArchitecture == PROC ES SOR_ARCH I TECTURE_ALPHA ) 
{ // 21064, 21066, 21164 
tmp.Format ("Model %c Pass %d" , 

{ (systemlnfo .wProcessorRevision & OxFFOO) >> 8) -+- 'A', 
{ systemlnfo . wProcessorRevis ion & OxOOFF)); 

} 

else if (systemlnfo .wProcessorArchitecture == PROCESSOR_ARCHITECTURE_PPC) 
// 1 601, 3 603, 4 604, 6 603-4-, 9 604+, 20 620 
{ 

tmp . Format ( "Version %02d . %02d" , 

(( systemlnfo .wProcessorRevision & OxFFOO) >> 8), 
( systemlnfo . wProcessorRevis ion &. OxOOFF)) ; 

} 

tmp2 . Format (" %s " , (const char *) tmp); 

tmp = " Proces sorRevis ion= " + AtpAttrib: :QuoteString(tmp2) ; 
inventory . Par seLine ( tmp) ; 
#endif 

tmp2 . Format ('' %d" , systemlnfo . wProcessorRevision) ; 

tmp = "SYSTEM__INFO . wProcessorRevis ion=" + AtpAt trib : : QuoteString ( tmp2 ) ; - 
inventory . Par seLine (tmp) ; 

} 
} 



// Computer name, current user name 



{ 

DWORD dwSize; 

char nameBuf [MAX_COMPUTERNAME__LiENGTH+4 0 9 6] ; 

dwSize = si zeof (nameBuf ) -1 ; 

if (GetComputerName (nameBuf , &dwSize) ) 

inventory. Par seLine ( " Compute rName= " + AtpAttrib: : QuoteString (nameBuf ) ) 

dwSize = s i zeof (nameBuf ) -1 ; - 
if (GetUserName (nameBuf , ScdwSize) ) 

inventory . Par seLine { "LogonUs ;erName= " + AtpAttrib r : QuoteString (nameBuf) ) 
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} 



// Existence of sound-output devices: 

// For now, we just want to know that there is an output device for- sound, 
// not the details of the device. We just return the number of such 
// output devices (zero if no sound output) 

//We don't care about microphone input for now: we think of our business 
// as one of distributing documents to be "viewed", not general software. 

{ 

UINT devCount ,- 

devCount = midiOutGe tNumDevs ( ) ; 

tmp . Format { " mi d iOutGe tNumDevs -\ » %ld\ " " , DWORD (devCount ) ) ? 
inventory. ParseLine ( tjip ) ; 

devCount = waveOutGetNumDevs ( ) ; 

tmp . Format { " waveOutGe tNumDevs =\ " %ld\ " " , DWORD (devCount } ) ; 
inventory . ParseLine ( tmp) ; 

devCount = auxGetNumDevs () ; 

tmp . Format ( " auxGetNumDevs =\ " %ld\ " " , DWORD (devCount ) ) ; 

inventory . ParseLine (tmp) ; 

} 

} 

// Support routine for CheckDocumentOpenAssociation: 
// Get default value for a key, if it is a string . 
// Returns TRUE if there is one, 

// Returns FALSE if none, or no such key, or default is not a string. 

BOOL GetDef aultStringValue (const char * keyName , CString & def aul tValue ) 

{ 

HKEY hKey; 

LONG Status; 

status = RegOpenKeyEx ( 

HKEY CLASSES ROOT , // open key 

keyName, // subkey 

0 f // reserved 

KEY READ , // security 

&hKey) ; 

if (status [= ERROR_SUCCESS) 

return FALSE; // No such key. 

/ / Find out how many values to scan . . . 



DWORD dwValueCount ; 
DWORD dwMaxNameLen ; 
DWORD dwMaxValueLen ; 
status = RegQuerylnf oKey ( 
hKey, 

NULL , NULL , 
NULL , 
NULL , 
NULL , 
NULL, 

ScdwValue Count , 
&dwMaxNameLen , 
&dwMaxValueLen, 
NULL , 



// Class name and len: not used here. 

// Reserved . 

// Number of subkeys 

// Longest subkey name length 

// Longest class name length 



// Security descriptor 



NULL); // Last time written 

if (status != ERROR_SUCCESS) 
{ 

SetLastError (status ) ; 
HACKassert ("Error- on RegQuerylnfoKey" , status == ERROR_SUCCESS) ; 
throw; // XXX Should be a different exception. 

} 

char * nameBuffer = new char [ dwMaxName Len +2] ; 
char * valueBuffer - new char [dwMaxValueLen+2] ; 
DWORD dw Index , dwType ; 
BOOL bFoundMatch - FALSE; 

for (dw Index = 0 ; dwlndex < dwValue Count ; dwlndex++) 

DWORD nameBuf ferS ize = dwMaxNameLen + 1 ; 
DWORD valueBuf f erSize = dwMaxValueLen+1 ; 
status = RegEnumValue ( 

hKey , / / Key to enumerate 

dwlndex, // index of value 

nameBuffer, 

&nameBuf ferSize, 

NULL, // reserved. 

ScdwType, // buffer type code, 

(unsigned char * ) valueBuffer, // value data buffer 
&valueBuf f erSize) ; // value data buffer size, 
if (status ■ = ERROR_SUCCESS) // Should always work; we got 

| // the count and size values already. 

SetLastError (status) ; 
HACKassert ( "Error on RegEnumValue status == ERROR_SUCCESS) ; 

throw; // XXX Should be a different exception. 

} 

if (dwType != REG_SZ) 

continue; // default value is always a string. 

// See if this is the default value ... 

if ( st rcmp (nameBuf fer ,"" > != 0) 

continue; // No: default value has empty string for a name 

defaultValue = valueBuffer ; 
bFoundMatch = TRUE; 
break; 

} 

delete [] nameBuffer ; 
delete [] valueBuffer; 
status = RegCloseKey (hKey) ; 
hKey = NULL; 

if (status ! = ERROR_SUCCESS) 
{ 

SetLastError (status) ; 
HACKassert ("Cannot close hKey handle ", status = = ERROR_SUCCESS) ; 
throw; // XXX Should be a different exception. 

} 

return bFoundMatch ; 

} 

// Support routine for GetAllDocumentOpenAssociations : 

//returns TRUE if these an "open" class association in the registry like this. 
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// "open" command, line passed, back, in openAppEntry . 



BOOL CheckDocumentOpenAssociat ion ( char * extensionName, CString & openAppEntry) 

{ 



openAppEntry 



"XXXAppName » ; 



// Debugging hack . 



CString className ; 

if (! GetDe fault StringValue (extensionName , className)) 

return FALSE; // No matching entry for that file extension. 

// OK, look for the "open" command line entry under this key name . - . 

className += " \\ shell \\open\\ command " ,- 

if ( IGetDefaultStringValue (className, openAppEntry)) 

return FALSE; // No matching entry for that file extension. 

return TRUE; 

} 

// Routine to get a list of all the document types that have 

// a "viewer", i.e. an association for "open" in the class registry. 

void Ge t Al IDocumentOpenAs soc i at ions (AtpAttrib & associationList) 

{ 

// Strategy: 

// Search for keys starting with a " . " ■ 

/ / For each such key ... 

// Look for the <No Name> REG_JSZ application name 

// Find the registry entry named that "application name" 

// Check for a sub-key 

// "application name " \ shell \open\ command 

// ... if one exists, then note the entry in our association list. 

// Note: 

// Keys look like they are lexigraphically ordered, but on Windows95, 

// they aren't: it's a fake done by the "RegEdit" program. 

// Find out how big a name buffer to allocate ... 



LONG status; 
DWORD dwMaxNameLen ; 
#ifdef DID_NOT_WORK 

DWORD. dwValueCount; 
DWORD dwMaxValueLen 
status = RegQuerylnf oKey ( 

HKEY_CLASS E S_ROOT , 

NULL , NULL, 

NULL, 

NULL r 

NULL, 

NULL , 

&dwValueCount , 
ScdwMaxNameLen, 
&dwMaxValueLen , 
NULL , 
NULL) ; 

if (status 1= ERROR_SUCCESS) 
{ 

SetLastError ( status ) ; 
HACKassert ( "Error on RegQuerylnf oKey " , status == ERROR_SUCCESS ) ; 

throw; // XXX Should be a different exception. 

} . 



// Class name and lenr not used here. 

// Reserved. 

// Number of subkeys 

// Longest subkey name length 

// Longest class name length 



// Security descriptor 
// Last time written 
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{ - #else 

dwMaxNameLen = 4096; 

1 ! #endif 

■ char- * extensionNameBuffer = new char [dwMaxNameLen +2] ; 

J! CString openAppEntry ; 

i CString tmp; 

;<// Scan until we get to a key starting with a ".» ... 

I I DWORD dwlndex; 

for (dwlndex = 0/ ; dwlndex++) 

| : { " ■ 

I DWORD dwNaraeLen = dwMaxNameLen ; 

* status = RegEnumKeyEx ( 

i. HKE Y CLASSES ROOT , // Key to enumerate 

dwlndex, // index of subkey to enumerate 

extensionNameBuffer, // buffer for subkey name 
&dwNameLen, //size of subkey name buffer 

NULL , // reserved . 

NULL , / / buf f er for class name 

NULL , //size of class name 

NULL) ; // Last time written to 

if ((status != ERROR_NO MORE ITEMS ) && (status ! = ERROR_SUCCESS) ) 

SetLastError (status) ; 
HACKassert ( "Error on RegEnumKeyEx" , status == ERROR_SUCCESS ) ; 

S if (status != ERROR^SUCCESS) // All done ... 

; ; break ; 

<> if (extensionNameBuffer [0] I — ' . ' ) 

•i continue; // Doesn't start with 

i </ / OK, get the app name and check it . . . 

>f if (CheckDocumentOpenAssociat ion (extensionNameBuffer, openAppEntry) ) 

! ; { // Add to our list. 

tmp .Format ( "%s=%s" , extensionNameBuffer, 
H (const char *) AtpAtt rib Quotes t ring ( openAppEntry )) ; 

;■ \ associationList . ParseLine (tmp) ; 

U I 

n 

|j status = ERROR_SUCCESS; // Just a place to set a breakpoint. 

; i | } 



delete [] extensionNameBuffer; 



!} 



;#if def SGURCE_CONTROL_BLOCK 

; Project Name: E-PS Client/Server program 
j : E-PS Inc . 

jj Copyright 1996, 1997. All Rights Reserved. 

j j SUBSYSTEM: Utility, utility classes and methods for client/server project 
!;$Workfile: Systemlnventory . cpp $ 
j i $Author : Jrward $ 
$ Revision : 12 $ 

J$Date: 1/06/97 11:06a $ 

|$Modtime: 1/05/97 7:37p $ 



^!$History: Systemlnventory . cpp $ 
■ ! * 

; I * ***************** Version 12 ***************** 
;j* User: Jrward Date: 1/06/97 Time: 11:06a 

\] * Updated in $/atp/Utility 

\\ * Removed our configuration data from "system inventory": we access i 
i? * separately now. 
j I * 

\- * ***************** Version 9 ***************** 
!; * User: Jrward Date: 1/02/97 Time: 10:59a 

\\ * Updated in $/atp/Utility 
|i * Added SOURCE_CONTROL_BLOCK stuff. 

\ \ 

l|// JRW 9612 03 Get Systemlnventory moved here from utility. cpp. 
'»'// JRW 961204 Get AllDocumentOpenAssociat ions added, 

\y / non-Win95 stuff conditioned out in Get Systemlnventory . 

JRW 9 612 0 5 Added waveOutGetNumDevs , etc. for sound output. 
! ;#endif // SOURCE_CONTROL_BLOCK 



[// atpsock.cpp : implementation of the CAtpSocket class 



;|#include <stdlib.h> 

\ #include "stdafx . h" 

\ ; #include <assert.h> 

t - # include <memory.h> 

\\ 

j! #include "atpsock.h" 
' * #include " atpexcept . h" 
\ # include " atpdataval . h' 



#ifdef __DEBUG 

#define new DEBUG NEW 

ftundef THIS__FILE 

static char- THIS FILE [] = 

ttendif 

#define DEBUG_OUTPUT 



#define D E FAULT T I M E OUT 150 

#define DEFAULT BLOCKS I ZE 16384 

#define CRY P T RANDOM L E N 3 2 

#def ine CRYPT SERVER_KEYHOLDER " ATP SERVER KEYHOLDER " 

#define CRYPT KEYHOLDER NAME (usernatne) (username + "_atp_keyholder « 

#def ine D E FAULT P RO V IDE RENAME " ElectronicParcelService " 

///////////////////////////// 
// AtpS o eke t Implement at ions 

AtpSocket : : AtpSocket (IAtpCallback * pCB) { 
m_pCB = pCB; // JRW 961127 
m_bu.fl en = 0; 

m_ time out = DEFAULT TIMEOUT ; 

m_block__pref = DEFAULT BLOCKSIZE ; 

m_f ast = FALSE; 
m_encrypt_data = TRUE; 
m_really_encrypt = FALSE; 
m provider = NULL; 

tn_ou t go ing_s e s s i on_key = NULL ; 
m_incoming_session_key = NULL; 

} 

AtpSocket : : -AtpSocket ( ) { 

if (m_outgoing_.session_key) ■. delete m_outgoing_session_key; 
if (m__incoming_session_key) delete m_incoming_session_key; 
if (m__provider) delete m_provider; 

} 



I | void AtpSocket Close ( ) { 

j j' if (m_hSocket ) 

IS CAsyncSocket :: Close () ; 

; I else 

U closesocket (my_hSocket) ; 

ii } 

!j .CString AtpSocket: :GetUserName() { 

f I return m_u serna me ; 

i > " 



s i 

; 1 



CString AtpSocket : : Get Provide rName ( ) { 
return m^providerName; 

} 

SocketTraffic& AtpSocket: :GetSocketTraffic() { 
return traffic; 

} 

// Initialize the ATP client protocol; Read the initial response from server 
// throws ProtocolErrorException 

void AtpSocket: : InitializeClient { ) { 
unsigned long opt =0; 
int code ; 
AtpAttrib arg; 

GetPeerName (m^peerhost , m_jpeerport > ; 
my_hSocket = Detach ( ) ,- 

ioctlsocket {ray_hSocket, FIONBIO, &opt ) ; // set blocking 

RecvResponse ( code , arg) ; 

if (code != ATP_RS P S ERVER READY ) 

throw AtpProtocolExceptionO ; 
m_providerName = arg [ " ProviderName " 3 ; 



void AtpSocket InitializeServer ( ) { 
unsigned long opt = 0/ 
AtpAttrib arg; 

GetPeerName (m_peerhost , m__peerport) ,- 
my_hSocket = Detach { ) ; 

ioctlsocket (my_hSocket, FIONBIO, &opt } ; // set blocking 

arg [ " ProviderName " ] = DEFAULT PROVIDER NAME ; 

SendResponse (ATP RSP SERVER READY , arg) ; 



#ifdef USE_CRYPT LIBRARY 

void AtpSocket : rMangieData (Crypt Providers provider, CByteArray& data, 
Crypt Key & pwd^key) { 
/ / Mangle the data 

pwd key . Encrypt Data (data, TRUE) ; 

Crypt Hash data__hash (provider) ; 
data_hash.HashData(data) ; 
data_hash.GetValue(data) ; 
pwd^key . EncryptData (data, TRUE) ; 

} 

# end if 

// Authentication & encryption solution: 

// For efficiency reasons, there are two scenarious possibly used: 

// One using encryption and one sending the data in the open 

// 

// A. Authentication only 

// The sequence of commands is the following: 

// 1. the client creates random data sequence and sends it to the server 
// 2, the server encodes that sequence using the user's passwd and 
// send back the hash (also encoded) . It also sends back its own 



// random data sequence 

]■/ / 3. the client checks the correctness of the received hash/ then it 

I \f / encrypts server's sequence and returns its hash (also encoded) 

; f // 4. the server verifies the correctness of the received hash 

I;// 

\\j f B. Authentication and encryption 

t // We have a private key (password) and would like to exchange 

, i// our session keys by using- it. Unfortunately, the Microsoft encryption 

11 // provider can encrypt a session key only with an RSA public/private 

ij// key pair. As a result, the steps from the above process are 

jj / / modified to reflect this: 

j?// 1. the client creates an RSA key pair, and sends the server its 

, // public key and a random data sequence. 

I // 2. the server creates an RSA key pair, and sends the client its 

I // public key. It also ^ncodi^BS the received sequence using the 

> // user's password and sends back the hash (also encoded) as well 

* // as its session key (encrypted with the client's public key) 

i // 3 . the client checks the correctness of the received hash; then it 

* // encrypts server's session key blob and sends back the hash 

I // (also encoded) as well as its own session key (encrypted with 

I // server's public key) 

s // 4. the server verifies the correctness of the received hash 
// 

BOOL AtpSocket •. : AuthenticateClient (CString username, CString password) { 
int code ; 

AtpAttrib arg ; * 



m__us e rname = username ; 



#ifdef US E__CRYPT__L I BRARY 
Crypt Key *rsa = NULL.; 
Crypt Key *server_rsa = NULL; 
Crypt Key *outgoing_session_key = NULL; 
CryptKey * i ncoming_s e s s i on_key = NULL; 
CByteArray random, received, key_export ; 

try { 

// Initialize the crypto api 

m_provider = new Crypt Provider ( CRYPT KEYHOLDE RENAME (username) ) ; 

} catch (CMyException ex) { 
ex ; 

m_provider = NULL; 

} 

#endi£ 

if ( !m_provider) { 

// simple authentication -- cryptography won't work 
arg . RemoveAl 1 ( ) ; 

arg [ATP_ARG__USER] = username; 
arg £ATP_ARG__PASS 3 = password; 

SendCommand (ATP CMD LOGIN, arg) ; 

RecvResponse (code , arg); 

if (code != ATP_RSP_LOGIN_OK) 

throw AtpProtocolExcept ion ( ) ; 
return TRUE; 

} 

#ifdef USE_CRYPT_LIBRARY 
try { 



///////////// 

// Phase 1 



/ / Generate random data 

CryptProvider& provider = *m_provider; 

provider . Generat eRandom ( random , CRYPT RANDOM LEN } ; 

// Generate RSA key and a session key if the data will be encrypted 
if (m__encrypt_data) { 
try { 

rsa = new Crypt Key (provider , AT KEYEXCHANGE) ; 

rsa- > Export Key (key_export , PUBLICKEYBLOB ) ; 

// use a stream encryption algorithm for the data 

outgoing_session_key = new Crypt Key (provider , CALG__RC4 ) ; 

} catch ( Crypt API Except ion ex) { 
ex ; 

m_encrypt_data = FALSE; 
if (rsa) delete rsa ; 
rsa = NULL ; 

if ( out go i ng_s e s s i on_key ) delete outgoing_session_key; 
ou t go i ng_ s e s s i on_key = NULL ; 

} 

} 

// Send data (phase 1) 
arg . RemoveAll ( ) ; 

arg [ATP ARG USER] = username ; 

arg [ATP_ARG SALT] = At pAt t rib :: UnparseBinary ( random) ; 

if ( m_enc ryp t data) 

arg [AT P_ARG RSA] = AtpAttrib : : UnparseBinary (key_export ) ; 

SendCommand (ATP__CMD__LOGIN r arg) ; 

///////////// 
// Phase 2 

// Create key based on the password 
Crypt Hash pwd_hash (provider ) ; 
pwd_hash . HashDat a (password) ; 

Crypt Key pwd_key (provider, CALG_RC2 , pwd_hash) ; 

// Calculate expected result 
MangleData (provider, random, pwd_key) ; 

// Get a response and handle it 
RecvResponse (code, arg) ; 

switch (code) { 

case AT P_RS P_LOGI N_ENGRYPT I ON : 

if ( ! m_encrypt_data) 
throw AtpProtocolException ( ) 

break; 

case ATP_RSP_LOGIN_NO_ENCRYPTION : 

if (m_encrypt__data) { 
m_encrypt_data = FALSE; 
delete rsa ,- 
rsa = NULL; 

} 

break ; 

case ATP__RSP_LOGIN_FAIL : 
if (rsa) delete rsa; 



return FALSE ; 
default : 

throw AtpProtocolExceptionO ; 

} 

// check if trie server knows the password 
try { 

BOOL correct - TRUE; 

AtpAttrib : : ParseBinary (arg [AT P_ARG RE S ULT ] , received) ; 

if (received. GetSize ( ) ! = random . Get Si ze () ) 
correct = FALSE ; 
else 

for (int i = 0; i < received . GetSize ( ) ; i++) 
if (received [i] ! = random [ i } ) { 
correct = FALSE ; 
break ; 

} 

if { ! correct ) { 
if (rsa) delete rsa; 

if (server_rsa) delete server_rsa ; 

if ( incoming_session_key) delete incoming_se s s i on_key ; 
if ( outgoing_ses s ion_key ) delete outgoing_session_key ; 
return FALSE; 
} 

} catch ( FormatException ex) { 
ex ; 

throw AtpProtocolException ( } ; 

} 

// Get server's public key 
i f ( m_enc ryp t _da t a ) { 
try { 

AtpAttrib: : ParseBinary ( arc; [AT P_ARG_RSA] , received) ; 

} catch (FormatException ex) { 
ex ; 

throw AtpProtocolException ( ) ; 
} 

try { . 

server_rsa = new Crypt Key (provider, received) ; 

} catch (CryptAPI Except ion ex) { 
ex ; 

throw AtpProtocolException ( ) ; 
} 

} 

// Get server's random data/session key 
try { 

AtpAttrib: : ParseBinary (arg,[ATP_ARG SALT] , received) ; 

} catch (FormatException ex) { 
ex ; 

throw AtpProtocolException ( ) ; 

} 

if (m_encrypt_data) { 

try { . ^ % 

incoming_session_key = new C ryp t Key (provider , received) 

} catch (CryptAPIException ex) { 
ex; 

throw AtpProtocolException () ; 

} 
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///////////// 

// Phase 3 

// Mangle server 1 s random data 
Mangle Data, (provider, received, pwd__key) ,- 

if (m_encrypt_data) { 

// Export the client session key using server's rsa 

outgoing_session_key- > Export Key (key_export , S IMPLEBLOB , *server_rsa) 

} 

// Send data (phase 3) 
arg - RemoveAl 1 ( ) ; 

arg [AT P ARG__USER] = username ; 

arg [ ATP_ARG_RESULT 3 = AtpAttrib: : UnparseBinary { received) ; 
if (m_encrypt_data) 

arg [ATP ARG SALT] = AtpAttrib : : UnparseBinary (key_export ) ; 

SendCommand (ATP_CMD_LOGIN2 , arg) ; 

delete rsa; 
rsa = NULL; 
delete server__rsa ; 
s e rve r_rs a = NULL ; 

///////////// 
// Phase 4 

RecvResponse ( code , arg) ; 
if (code ! = ATP_RSP_LOGIN_OK) 
throw AtpProtocolException ( ) ; 

} catch (CMyException ex) { 
ex ; 

if (rsa) delete rsa; 

i f ( server_rsa ) delete server_rsa ; 

if ( outgo i ng_s e s s i on_key ) delete out go ing__s e s s i on_key ; 
if ( incoming_session_key) delete incoming_s e s s ion_key ; 
throw; 

} 

H m_outgoirig_session_key = out going_se s s ion_key ; 
jj m_incoming_session__key =; incoming_session_key ; 
\\ m_really_encrypt = m_encrypt_data; 
M tfendif . . 

h return TRUE; 

■ I ; } : 

H - ■ " - 

'. \ / / to be implemented 

j I BOOL AtpSocket : : AuthenticateServer ( ) { 
H // implement a private key encryption 
"jj- // scheme a la .Kerberos (passwords do not 
II // travel in the open) 

I I ^ AtpCommand crnd ; 
U AtpAttrib arg; 

jj ///////////// 

j ; " 

H 6 

if" ■ ■ " ■ ' '" ■ 

i \ ' ■ ■ - 
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// Phase 1 



Re cvCommand ( cmd , arg) ; 

if (cmd != AT P_CMD LOGI N ) { 

arg . RemoveAll { ) ; 

SendRe spon s e ( AT P_RS P_LOGIN_EXP ECTED , arg) ,- 
return FALSE ; 

} 

m_usernarae = arg [ATP_ARG USER] ; 

CString password = ServerObtainPassword (m_username j ; 
if (password . IsEmpty ( ) ) { 

SendResponse(ATP_RSP_LOGIN_FAIL / arg) ; 

return FALSE; 

} 

if (arg [ATP ARG_PASS] = = password) { 

// All is good, authentication successful (simple one) 
arg . RemoveAl 1 ( ) ; 

SendResponse (ATP_RSP_LOGIN_OK, arg) ; 
return TRUE; 

} 

#ifdef US E CRY PT_Lr I BRARY 

CryptKey *rsa = NULL ; 
CryptKey *clienfe 1 _rsa = NULL ; 
CryptKey * ou t go ing_se s s ion__key — NULL ; 
CryptKey *incoming_session_key = NULL; 

try { 

// Initialize crypto api 

CByteArray random, received, key_export ; 

rn_provider = new Crypt Provider ( CRYPT SERVER__KEYHOLDER) 

Crypt Provider^ provider = * m_prov i de r ; 

///////////// 
// Phase 2 

/ / Create key from password 
GryptHash pwd_hash (provider) ; 
pwd_hash . HashData (password) ; 

CryptKey pwd_key (provider, CALG_RC2 , pwd_hash) ; 

// Get client's data and mangle it 
try { 

AtpAttrib: : ParseBinary (arg [ATP__ARG SALT] , received) ; 

} catch (FormatExcept ion ex) { 
ex ; 

throw AtpProtocolException ( ) ; 

} 

MangleData (provider, received, pwd_key) ; 

// Get client's rsa key if encrypting 
if (m_encrypt__data) { 
try { 

AtpAttrib: : ParseBinary (arg [ATP ARG RSA] , key_export ) ; 

client_rsa = new CryptKey (provider, key_export) ; 

} catch (FormatExcept ion ex) { 
ex ; 

throw AtpProtocolException ( ) ; 
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} catch ( Crypt API Except ion ex) { 
ex ; 

m_encrypt_data = FALSE ; 
} 

} 

// Create rsa key and session key if encrypting 
if (tn_encrypt_data) { 
try { 

rsa - new CryptKey (provider, AT KEYEXCHANGE) ; 

rsa->ExportKey (key_export , PUBLICKEYBLOB) ; 
// use a stream encryption algorithm for the data 
outgoing_session___key = new CryptKey (provider, CALG_RC4) ; 
outgoing_session_key- > Export Key (random, SIMPLEBLOB, * client 

} catch ( Crypt AP I Except ion ex) { 
ex ; 

m_encrypt_data = FALSE ; 

if (client_rsa) delete rsa; 

c lient__rsa = NULL ; 

if (rsa) delete rsa; 

rsa = NULL; 

if (outgoing m session_key) delete outgoing_session_key; 
outgo ing_sess i on_key = NULL; 
} 

} 

// if not encrypting data, just send a random string 
if ( !m_encrypt_data) 

provider . GenerateRandom ( random, CRYPT RANDOM LEN) ; 

// Send data (phase 2 ) 
arg - RemoveAll ( ) ; 

arg [ATP_ARG_SALT] = AtpAt t rib :: UnparseBinary ( random) ; 

arg [ATP ARG RESULT] - AtpAt t rib : : UnparseBinary ( received) ; 

if (m_encrypt_data) { 

arg [ATP ARG RSA] = AtpAttrib :: UnparseBinary (key_export ) ; 

SendResponse ( ATP___RSP_LOGIN_ENCRYPTION, arg) ; 

} 

else 

SendResponse ( ATP_RSP_LOGIN_NO_ENCRYPTION , arg) ; 

///////////// 
// Phase 3 

// Calculate expected result 
MangleData (provider , random, pwd_key) ; 

// Get a response and handle it 
RecvCommand (cmd, arg) ; 
if (cmd != ATP_CMD_JLOGIN2) { 
arg . RemoveAl 1 () ; 

SendResponse (ATP_RSP_LOGIN_EXPECTED , arg) ; 
throw AtpProtocolException ( ) ; 

} 

// Verify if the client knows the password 
try { 

BOOL correct = TRUE; 

AtpAttrib: : ParseBinary (arg [ATP_ARG RESULT] , received) ; 

if (received.GetSizeO != random . Get Size ( ) ) 
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correct - FALSE ; 
else 

for (int i = 0; i < received. . GetSi ze () ; i + +) 
if (received[i] != random[i] ) { 
correct = FALSE ; 
break ; 

} 

if (I correct ) { 
if (rsa) delete rsa; 

if (client_rsa) delete client_rsa; 

if (incoming_session_key) delete incoming_session__key; 
if (outgoing_session_key) delete outgoing__session_key ; 
return FALSE; 
} 

} catch. (Format Except ion ex) { 
ex ; 

throw AtpProtocolExceptionO ; 

} 

// Get client's session key 
try { 

AtpAttrib: : ParseBinary (arg [ATP_ARG_SALT] , received) ; 
} catch. (Format Except ion ex) { 
ex ; 

throw AtpProtocolExceptionO ; 

} 

if (m_encrypt_data) { 
try { 

incoining_session_key - new CryptKey (provider , received) 

} catch (CryptAPI Except ion ex) { 
ex ; 

throw AtpProtocolExceptionO ; 
} 

} 

delete rsa; 
rsa = NULL; 
delete. client__rsa; 
client_rsa = NULL; 

///////////// 
// Phase 4 

// All is good, authentication successful 
arg . RemoveAll ( ) ; 

SendResponse (ATP_RSP_LOGIN_OK, arg) ; 

} catch (CMyException ex) { 
ex ; 

if (rsa) delete rsa; 

if (client_rsa) delete client_rsa ; 

if (incoming_session_key) delete incoming_session_key; 
if (outgoing_session_key) delete outgoing_session_key; 
throw ; 

} 

m_incoming_session_key = incoming_session_key; 
m_outgoing_session_key = outgoing_session_key; 
m_really_encrypt = m_encrypt_data ; 
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#endif 



return TRUE; 

} 

CString AtpSocket : : ServerObtainPassword (CString username) { 
username ; 
return M " ; 

} 

void AtpSocket: ; ServerLoop { ) { 
AtpCoramand cmd ; 
AtpAttrib arg; 

while (TRUE) { 

RecvCommand ( cmd , arg) ; 
switch ( cmd.) { 

case AT P_CMD_BLOCK : 
long pref ; 
try { 

pref = AtpAttrib : : Parselnt (arg [ATP_ARG_PREF] ) ; 

} catch. ( Format Except ion ex) { 
ex ; 

throw AtpProtocolExcept ion ( ) ; 

} 

ServerNegotiateBiock (pref ) ; 
break ; 

case ATP_CMD_SEND : 

ServerHandleSend (arg) ; 
break ; 

case ATP_CMD_RECV: 

ServerHandleRecv (arg) ; 
break; 

case ATP_CMD_CLOSE: 
return; 

default : 

throw AtpProtocolExceptionO ; 

.} . . : 

} 

} ■ 

///// Client operations follow ///// 

// Negotiate a block size with the server 
// throws AtpExcept ion 

void AtpSocket: : Negot iateBlock (long preferred) { 
int code ; 
AtpAttrib arg;" 

while (TRUE) { 

arg . RemoveAll () ; 

arg [ATP__ARG_PREF] , = AtpAttrib : rUnparselnt (preferred) ; 
SendCondTnand (ATP_GMD BLOCK, arg) ; 

RecvResponse (code, arg); 
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switch (code) { 

case ATP_RS P_BLOCK_OK : 

m_block_pref = preferred; 

return; 
case ATP_RSP_BLOCK_BAD: 
case ATP_JRSP_BLOCK_PRESET: 

// we are mellow: agree with, the suggested size 

try { 

preferred = AtpAttrib: : Parselnt (arg [ATP ARG PREF] ) ; 

} catch (FormatSxception ex) { 
ex ; 

throw AtpProtocolExcept ion ( ) ; 

} 

break ; 
default : 

throw AtpProtocolExcept ion ( ) ; 

} 

} 

} 

// virtual, to be overridden if necessary 

void AtpSocket : : ServerNegotiateBlock ( long client_pref erred) { 
// always agree by default 
ServerBlockAgree (client_pref erred) ; 
m_block_pref = client _jpref erred ,- 

} 

void AtpSocket: ServerBlockAgree (long preferred) { 
AtpAttrib arg; 

arg [ATP_ARG PREF] = AtpAttrib: : Unparselnt (preferred) ; 

SendResponse (ATP_RSP_BLOCK_OK / arg) ; 

} 

void AtpSocket: : ServerBlockDisagree ( long preferred, BOOL permanent) 
AtpAttrib arg ; 

arg [ATP ARG PREF] = AtpAtt rib :: Unparselnt (preferred ) ; 

i f (permanent ) 

SendResponse (ATP_RSP BLOCK_PRESET , arg) ; 

else 

SendResponse (ATP^RSP BLOCK BAD, arg) ; 



// Send a file to the server. Returns TRUE if file is accepted 
// throws AtpException 

BOOL AtpSocket :: SendFile (AtpFile& fl) { 
int code; 
AtpAttrib arg ; 
long from, len ; 
CTime start ; 
CTimeSpan interval; 

// send file info 

f 1 .GetAttributes (arg) ; 

SendCommand (ATP CMD SEND, arg) ; 

while (TRUE) { 

// get a response/request & handle it 
RecvResponse (code , arg) ; 
switch (code) { 



case ATP RSP SEND REJECTED : 

return FALSE ; 

case ATP__RSP_STALL: 
long stall ; 

try { stall = AtpAttrib: : Parselnt (arg [ATP_ARG_STALL] ) ; } 
catch ( Format Except ion ex) { 
ex ; 

throw AtpProtocolExcepti on ( ) ; 

RemoteStall (stall) ; // do not time out for that time 

RecvResponse(code, arg); // ++ check this 

arg . RemoveAl 1 ( ) ; 

SendCommand (ATP CMD READY , arg) ; 

cont inue ; 

case ATP_RSP_SEND__DONE : 

// the transfer is complete 
return TRUE ; 

case AT P_RS P_S END DATA : 

break ; 

default : 

throw AtpProtocolException ( ) ; 

} 

// data block has been requested! 
try { 

from - AtpAttrib: : Parselnt (arg [ATP ARG FROM] ) ; 

len = AtpAttrib : : Parselnt (arg [ATP ARG LEN] ) ; 

catch (Format Except ion ex) { 
ex ; 

throw AtpProtocolException () ; 

} 

// check if we can allow a large block transfer 
long stall = m_pCB ? m_pCB - >Reque s t Trans f er (len) : 0; 
if (stall > 0) { 
arg . RemoveAl 1 ( ) ; 

arg [ATP_ARG STALL] = AtpAttrib: :UnparseInt (stall) ; 

SendCommand (ATP CMD STALL, arg) ; 

LocalStall (stall) ; 
arg . RemoveAl 1 () ; 

SendCommand (ATP CMD STALLEND , arg) ; 

continue; 

else if (stall < 0) { 

// hopeless, close connection 
arg . RemoveAl 1 ( ) ; 

SendCommand (ATP_CMD_CLOSE, arg) ; 
Shut Down ( 2 ) ; 

throw Atp Interrupt Except ion ( ) ; 

} 

// send the block 
arg . RemoveAl 1 () ; 

arg [ATP ARG FROM] = AtpAttrib :: Unparselnt ( from) ; 
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arg [ATP_ARG_LEN] = AtpAttrib : : Unparselnt ( len) ; 
S endCommand ( AT P__CMD_DATA , arg) ; 
SendData ( f 1 , from, len} ; 

} 

return TRUE; 

} 

// virtual controller function. 

// Override this to define the behaviour at Send 
void AtpSocket : : ServerHandleSend (AtpAttrib& arg) { 

// Do not accept files in the default implementation 

arg ; 

ServerRe j ectSend ( ) ; 



void AtpSocket : : ServerRej ectSend ( ) { 
AtpAttrib arg; 

SendResponse (ATP_RSP_SEND_REJECTED, arg) ; 

} 

void AtpSocket :: ServerAcceptSend (AtpFile& fl) { 
AtpCommand cmd ; 
AtpAttrib arg; 
long from, len; 

while (ffl.IsCompleteO) { 
// get a vacant block 

f 1 . RequestBlock (m_block_pref , from, len) ; 
// can we download a large block? 

long stall = m_pCB ? mjpCB->RequestTransf er (len) : 0; 
if (stall > 0) { 
arg . RemoveAll ( ) ; 

arg [ATP__ARG_STAIjL.] = AtpAttrib Unparselnt ( stall ) ; 
SendResponse (ATP_RSP_STALL, arg) ; 
LocalStall (stall) ; 
arg . RemoveAll ( ) ; 

SendResponse (ATP_RSP_STA1LEND, arg) ; 

RecvCommand (cmd, arg); '//"++- verify if this is ready 

fl.ClearRequest (from, len); 
cont inue 

} 

else if (stall < 0} { 

// hopeless, close connection 
arg . RemoveAll { ) ; 

SendResponse (ATP_RSP_CLOSE, arg); 
Shut Down (2 ) ; 

throw AtpInterruptExceptionO ; 

} 

// send request for the vacant block 
arg . RemoveAll {) ; 

arg [ATP_ARG FROM] = AtpAttrib.- .-Unparselnt (from) ; 

arg [ATP_ARG_LEM] = AtpAttrib :: Unparselnt ( len) ; 
SendResponse ( ATP RS P S END_JDATA , arg) ; 

// get a command and handle it 
RecvCommand ( cmd, arg) ; 
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! * 

t , 
\ 1 

\[ // iDFServer.cpp : Implementation of the IDFServer and iDFile classes 

1 | // C + + code file 

:| // (c) 1996 ACS 

|i // 

" stdafx .h" 
"assert .h" 
"atpfile -h M 
" atpdata . h" 
" atpexcept .h" 
"utility . h" 

ttifdef _DEBUG 

!. #define new DEBUG NEW 

i; #undef THIS^FILE 

I, static char THIS FILE [] = FILE ; 

} * #endif 



AtpFile : : AtpFile ( ) { 

\ r m_f bound = FALSE ; 

;i m_tentative = TRUE; 

! i m_f 1 = NULL ; 

m_fsize = 0; 

1 « m_f loaded = 0; 

:; } 

AtpFile: : AtpFile (CFile *fl) { 

1 j rn_fbound = FALSE ; 

\ i m__tentative = TRUE ; 

i i m_f 1 = NULL ; 

! ' ra__f size = 0 ; 

, I m_f loaded = 0 ; 

Associate (fl) ; 

! ! i 

■ ! AtpFile :: -AtpFile ( ) { 

s ; 

j! CFile* AtpFile : :GetFile ( ) { 

\ i return m_f 1 ; 

! I 1 

j) void AtpFile: :AssignAttributes {CFile* fl, AtpAttrib& at t rib) { 

H try { 

!j mjsize = m_f loaded = f 1 - >GetLength ( ) ; 

1 | CFi leStatus stat ; 

■j f 1- >GetStatus (stat ) ; 

j attrib [ATP_ARG_NAME] - f 1 - >GetFileName ( ) ; 

I attrib [ATP__ARG_SIZE] = AtpAttrib: :UnparseInt (m_f size) ; 

! attrib [ATP ARG_TIME] = AtpAttrib : : UnparseTime ( stat . m__mtime) ; 

U attrib [ATP ARG CHKSUM] = AtpAttrib: : Unparselnt (CalculateChecksum ( f 1 ) ) 

H } catch (CFileException *ex) { 

jj ex- >Delete ( ) ; 

\ I throw FileErrorException ( ) ; 

II . > ' 
li } 

U -void AtpFile Associate (CFile* fl) { 

\\ assert {! m_f bound) ; 

U ' i 
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#include 
# include 
# include 
# include 
# include 
#include 



; AtpAttr-ib attrib ; 

[ Ass ignAt tributes <f 1 , attrib) ; 

| m_attribs = attrib ; 

; m_fl = fl; 

m_f bound - TRUE; 

; ) 

! long AtpFile: :CalculateChecksum(CFile* fl) const { 

' fl; 

i return 0 ; 

; } 

| void AtpFile: ; BindToFile(CFile* fl, long loaded) { 

] assert ( !m_fbound) ; 

; / /assert (m__f size > 0) ; 

! if (m_fsize < 0) 

e throw Inval idOperat ionExcept ion ( } ; 

[ m_f loaded - loaded; 

] try { 

: f 1- >Set Length (m_f size) ; 

\ } catch (CFileException *ex) { 

i ex- >Delete ( ) ; 

s throw FileErrorException ( ) ; 

; } 

; m_f 1 - fl; 

m_f bound = TRUE_; 

j ) 

1 void AtpFile: : SetAttributes (const AtpAttrib& attrib) { 

AtpAttrib attribs = attrib ; 

| long new__size = 0; 

! if O attribs [ATP__ARG_SIZE] . IsEmpty ( ) ) 
t ry { 

; new_size = AtpAttrib: : Parselnt (attribs [ATP_ARG_SIZE] ) 

' if (m_f bound && new_size ! = Tn_fsize) { 

1 //throw invalidOperationException ( ) ; 

1 m_f l->Set Length (new_size) ; 
} 

S m_tentative = FALSE; 

} catch (Format Except ion ex) { 

! I ■ ex; 

jj. HACKassert ( "Invalid- size format", TRUE); 

I \ new_size = 0 ; 

!!.}■- 

;■! else 

|! m tentative = TRUE; 

i 

1 m_f size = new_s i z e ; 

! m_attribs =. attrib; 

| ' ) . ; 

U void AtpFile: : GetAt tributes (AtpAttrib& attrib) { 

| j attrib = m_attribs ; 

?!-■' ) 

I! long AtpFile :: GetSize ( ) const [ 

j \ return m_fsize; 
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} 

long AtpFile : : GetLoadedSize ( ) const { 
return m__f loaded; 

} 

BOOL AtpFile :: IsCotnplete { ) const { 

return ( I m_tentat ive && m_f loaded = = m_f size) ; 

} 

BOOL AtpFile :: IsBound { ) const { 
return m__f bound ; 

} 

BOOL. AtpFile :: RequestBlock (long pref , long& from, long& len) { 
assert (m__f bound) ; 

if ( 1 m_f bound ) 

throw InvalidOperat ionException < > 

if { IsComplete ( } ) return FALSE; 

from = m_f loaded; 

len --■ (pref > 0) ? pref : m_ f size - from; 
if (from + len > m_f size) 

len = m_f size - from; 
return TRUE ; _ 

} 

BOOL. AtpFile :: ClearRequest (long from, long len) { 
f rom ; 1 en ; 
return TRUE; 

} 

void AtpFile :: WriteBlock {void *data , long from, long len) { 
assert (m__f bound) ; 

if ( I m_f bound ) 

throw InvalidOperat ionExcept ion ( ) ; 
if (from < 0 | j len < 0 j | from + len > m_fsize) { 

HACKassert ( " Invalid range " , TRUE); 

throw RangeErrorExcept ion ( ) ; 

} 

// do not write again (or when file is complete) 
if (from + len < = m_f loaded) return; 

try { 

m_f 1- >Seek ( f rom, CFi le :: begin) ; 
m_fl->Write(data, len); 

if (from <= m__f loaded && from + len > m_floaded) 
rn__f loaded = from + len; 
) catch (CFileException *ex) { 
ex->Delete() ; 

throw FileErrorException ( ) ; 

} 

} 

void AtpFile :: ReadBlock (void *data, long from, long len) { 
assert (m_f bound } ; 



3 9 



assert (from >= 0 leu > 0) ; 

if ( ! m_f bound) 

throw InvalidOperationException { ) ; 
if (from < 0 | | len < 0 | | from + len > m_f size ) 

throw RangeErrorException ( ) ; 

try { 

m_f 1 - >Seek ( from, CFile: rbegin) ; 
if ( ( long ) m_f 1 - >Read ( data , len) ! = len) 
throw FileErrorException ( ) ; 
} catch (CFileException *ex) { 
ex->Delete() ; 

throw FileErrorException ( ) ,- 

} 

} 

BOOL. AtpFile :: operator== (const AtpFi le& comp) const { 
try { 

AtpAttrib attribl, attrib2; 
attribl = m_attribs ; 
attrib2 = comp . m_at t ribs ; 

return (attribl [ATP_ARG_NAME] == attrib2 [ AT P ARG_N AM E ] && 

AtpAttrib: : Parselnt (attribl [ATP ARG S IZE] ) == 

AtpAttrib: : Parselnt (attrib2 [ATP_ARG_SIZE] ) 

AtpAttrib: : Parselnt (attribl [ATP ARG CHKSUM] ) -- 

AtpAttrib: : Parselnt (attrib2 [ ATP_ARG CHKSUM ] ) && 

AtpAttrib : : ParseTime (attribl [ATP ARG TIME] ) = = 

AtpAttrib: : ParseTime (attrib2 [ATP ARG TIME] ) ) ; 

} catch ( Forma t Except ion ex) { 

ex ; 

return FALSE; 

} 

} 



/ / End of code 

#ifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. - ' 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: EPS Protocol 

$Workf ile: atpfile.cpp $ 

$ Author : Ttonchev $ 

$Revision: 9 $ 

$Date : 1/31/97 9:58a $ 

$Modtime: 1/31/97 9:15a $ 

$Hi story : atpf ile . cpp $ 

* ***************** Version 9 ******* ********* * 

* User : Ttonchev Date : 1/31/97 Time : 9 : 58a 

* Updated in $/ atp/Protocol 

* fixed problems with IsComplete () when the default size is 0 
* 

* ***************** Version 8 ***************** 

* User: Ttonchev Date: 1/28/97 Time: l:23p 

* Updated in $ /atp/Protocol 

4 
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* ***************** Vers ion 7 * * 

* User: Jrward Date: 1/27/97 

* Updated in $ /atp/ Protocol 

* Added VSS history stuff. 
#endif // SOURCE_CONTROL_BLOCK 



// 

/ / C++ header file 
// (c) 1996 ACS 
// 

#ifndef _ATPFILE„H_ 
#define _ATPFILE_H„ 

#include "stdafx.h" 

# include "atpattrib.h" 

class AtpFile : public CObject { 

Pr /T a disallow copy contractor and assignment 
AtpFile (const AtpFile&) ; 
void operator (const AtpFileSO ; 

public: 

^pFi^ckle // rm s Associate on tl. Does -ct adopt 

virtual -AtpFile () ; 

public: 

// Methods for interaction with the class 
BOOL operators (const AtpFile^ comp) const; 

virtual void SetAttributes (const AtpAttrib & attrib) ; 
virtual void GetAttributes (AtpAttrib* attrxb) ; 

virtual BOOL IsComplete {) const; 
virtual BOOL IsBoundO const; 
virtual CFile* GetFileO; 

virtual long GetSizeO const; 

virtual long GetLoadedSize () const; 

virtual BOOL RequestBloc* ( long pref , ^ ™' X ^ ^ ' 

virtual BOOL ClearRequestdong from, long len) , 

virtual void WriteBlock(void *data, long from, long len) ; 
virtual void ReadBlock( void *data, long from, long len), 

protected: 

void Assocxate (CFile* z±), // 
Pr iong e CalculateChecksum (CFile *fl) const; 

//Member Variables Section 

private: ^ ^ ar cessed by using the methods 

// these member variables can be accessed 
// please do not use directly 
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CFile *mjl; 

AtpAttrib m__attribs ; 

BOOL m_fbound, m_tentat ive ; 

long m^fsize , m_f loaded ; 



}; 



#endif // __ATPFILtE_H 

/ / End of headers 

#ifdef SOURCE__CONTROL_BLOCK 
Project Name: E-PS Client/ Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: E -parcel- com 

$Woricfile: atpfile.h $ 

$ Author : Ttonchev $ 

$Revision: 4 $ 

$Date: 1/31/97 9:58a $ 

$Modtime: 1/31/97 9 : 09a $ 

$Hi story : atpf ile . h $ 
* 

* ***************** Version 4 ***************** 

* User: Ttonchev Date: 1/31/97 Time: 9:58a 

* Updated in $/atp/ Include 

* fixed problems with IsComplete ( ) when the default size is 0 
* 

* ***************** Version 3 ***************** 

* User: Jrward Date: 1/27/97 Time: 12 : 13p 

* Updated in $/atp/ Include 

* Added VSS history stuff. 
#endif // SOURCE_CONTROL_BLOCK 
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atpclient . cpp : implementation of the AtpClientSocket class 
: j#include "stdafx.h" 

I ^include <stdlib.h> '\ 
';#include <assert .h> 

\\ ■ [ 
• j ttinclude "atpclient . h" 

jlinclude "atpexcept .h" ; 

, ! # include "atpdata.h" . 

;:#mclude "atpmemf ile .h" f 

! ■ #include " Sy s t emlnven tory . h " [ 

\\ AtpClientSocket :: AtpClientSocket { IDFServer *idf_server, I AtpCal lback * pCB) { 

\\ : AtpSocket (pCB) // JRW 961127 ' 

;i ' 

l \ m__idf_s e rve r = idf_server ; i 
. j m_pPCB - NULL; 

v) 1 

\ 1 ■ 
; ! AtpClientSocket : : -AtpClientSocket ( ) { 

h) ; 

h \ 

| 1 void AtpClientSocket: :Run(AtpAttrib& provider's, long bsize) { 

\\ try { j 
i' Initial! zeClient ( ) ; 

^ i conn . provider . ParseLine (providers [Get ProviderName () ] ) ; 

\\ if (! Authenti cat eCl lent (conn . provider [ "Us erName *'] , conn . provider [ "UserPassword" ] ) ) { 

; ClientQuit ( ) ; ' ' \ 
' i throw AtpAuthent i cat ionExcept ion ( ) ; 

i! } \ 

\\ NegotiateBlock (bsize) ; i 

;| CI ientLoop { ) ; \ 

; t ClientQuit ( } ; \ 
| j } catch (CMyExcept ion ex) { 

; ! ex ; ' \ 

\\ DWORD err = GetLastError ( ) ; 

j ! Close ( ) ; ; 

I X throw; \ 

U } - ! 

|i } . . \ 

\ \ . I 

Hvoid AtpClientSocket :: RunAnon ( IDFile *idf, long bsize) { I 

\\ try { j 

![ InitializeClient ( ) ; : 

\l NegotiateBlock(bsize) ; \ 
\\ C 1 i ent LoopAnon ( i df ) ; 

\ ClientQuit ( ) ; ] 

\ } catch (CMyExcept ion ex) { \ 

\ ex ; I 

\ DWORD err = GetLastError ( ) ; \ 

\ Close ( ) ; - J 

\ I throw ; " ; 

i! } - ;■ 

li} ■ ■ ■ : ; 

>!.-.. ■ ■ 

\ ivoid AtpClientSocket : : InitObserver (AtpConnUID uid f j 

H IAtpProgressCallback *pPCB ) { \ 
\\ m_pPCB - pPCB ; 

j; conn . uid = uid; ' \ 

\\ conn. state = AtpConnection : : CONNECTING; ' \ 
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Ge t Pee rName ( conn . peer_addr es s , conn.peer_port) ; 
conn. traffic = &GetSocketTraf f ic () ; 
conn . idf = NULL ; 

if (mjpPCB) m_pPCB- > Process Connect ionSt ate (conn) ; 

} 

void AtpClientSocket : : ClientLoop ( ) { 
// Set state to WAITING 

conn. state = AtpConnection : : WAITING; 
conn.peer_address = m_peerhost ? 
conn - peer port = m_jpeerport ; 

if (m pPCB) m_pPCB- >ProcessConnect ionSt ate (conn) ; 

/ / Request current registration information 

{ 

AtpAttrib arg; 

arg [ATP ARG NAME] = ATP FILE REGISTRATION ; 

arg [ATP ARG SPECIAL} = AtpAttrib: :UnparseBool (TRUE) ; 

AtpMemFile af 1 (arg) ; 
if (RecvFile (af 1) ) { 
arg . Remove A 1 1 ( ) ; 

arg [ATP_ARG_NAME] = ATP_FILE_BENCHMARK; 

arg [ATP_ARG_SPECIAL] = AtpAttrib: :UnparseBool (TRUE) 

AtpMemFile af 12 (arg) ; 

RecvFile (af 12) ; 

} 

else { 
} 

} 

/ / Send current configuration 
{ 

AtpAttrib arg, xnv; 

arg [ATP ARG NAME ] = ATP__FILE__CONFIG ; 

arg [ATP ARG SPECIAL] = AtpAttrib: :UnparseBool (TRUE) ; 

AtpMemFile af 1 (arg) ; 

CFile *fl = af 1 -GetFile ( ) ; 

CArchive ar(fl, CArchive :: store ) ; 

GetSystemlnventory ( inv) / 

inv . UnparseFile (ar) ; 

ar. Flush ( ) ; 

f 1- >Flush ( ) ; 

SendFile (af 1) ; 

} 

// Request file list 
{ 

AtpAttrib arg; 

arg [ATP_ARG NAME] = AT P F I LE L I ST ; 

arg [ATP_ARG_SPECIAL] - AtpAttrib :: UnparseBool ( TRUE ) ; 

AtpMemFile af 1 (arg) ; 

if (! RecvFile (afl >) return; 

// ok/ got it, now update local file database 
CFile *fl = af 1 .GetFile () ; 
f 1 - >SeekToBegin ( ) ; 
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CArchive arch (f 1 , CArchive : : load) ; 



CString line; 

while (arch.ReadString(line) ) { 
arg - RemoveAll ( ) ; 
arg - ParseLine { 1 ine ) ; 

IDFile *idf = m_idf_server->FindIDFile (arg) ; 
if (lidf) { 

idf - new IDFile (arg) 

try { 

m_idf ^server- >Add ( idf ) ; 
} catch (FileErrorException ex) { 
ex ; 

continue ; 

} 

} 

} 

} 

// Download incomplete files 

for (int i = 0; i < m_idf_server->GetSize() ; i + +) { 
IDFile *idf = ra_idf_server->GetIDFile(i) ; 
// Lock checks if a transfer is already in progress 
CSingleLock lock ( idf - >GetLock { ) ) ; 
if ( I idf - >IsComplete ( ) lock.Lock(O) ) { 

BOOL ok; „ 

try { 

ok = RecvFile (*idf , this) ; 
} catch (AtpException ex) { 
ex ; 

idf - >Store ( ) ; 
lock.UnlockO ; 
t hr ow ; 

} 

lock.UnlockO ; 
if (iok) { 

// ++ delete this idf file --no longer availabl 
continue; 

} 

else { 

// File received. Set state to WAITING, 
conn. state = AtpConnection : : WAITING; 

if (m__pPCB) m_pPCB- >ProcessConnect ionState ( conn) 
} " 

if (idf ->lsComplete ( ) && ! idf - >lsFinal ized ( ) ) 
idf->Finalize() ; 

} 

} - ' ■ 

void AtpClientSocket : : ClientLoopAnon (IDFile *idf) { 
conn. state = AtpConnection: : WAITING; 
conn.peer_address = m_peerhost ; 
conn.peer_port = m_peerport; 

if ( m _j)PCB) m_pPCB- >ProcessConnectionState (conn) ; 
//Get requested file 

CSingleLock lock ( idf - >GetLock ()) ; 

// Lock checks if a transfer is already in progress 

3 
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if ( i idf - >IsComplete ( ) && lock . Lock ( 0 ) ) { 
BOOL ok; 
try { 

ok = RecvFile ( *idf , this) ; 
} catch (AtpException ex) { 
ex ; 

id.f - >Store ( ) ; 
lock. Unlock ( ) ; 
throw ; 

} 

lock. Unlock {) ; 
if ( ! ok ) { 

// ++ delete this idf file no longer availabl 

return ; 

} 

else { 

// File received. Set state to WAITING. 

conn. state = AtpConnection :: WAITING; 

if (m pPCB ) m_pPCB->ProcessConnectionState (conn) 

} 

if (idf - >IsComplete ( ) ! idf - >I sFinal i zed ( ) ) 

idf ~>Finalize() ; 

} 

} 

void AtpClientSocket : : ProcessWrit tenBlock (AtpFile *atp) 
conn. state = AtpConnection : : RECEIVING ; 
conn. idf = (IDFile *) atp; 

if (m_jpPCB ) m_pPCB- >ProcessConnectionStat e (conn) ; 

} 

void AtpClientSocket :: ProcessStall (AtpFile *atp) { 
conn. state - AtpConnection: : PAUSED ; 
conn. idf = (IDFile *) atp; 

if (m pPCB) m_pPCB- >ProcessConnec tionSt ate (conn) ; 

} 

void AtpClientSocket Close ( ) { 
CSocket : : Close (") ; 

conn. state = AtpConnection: : CLOSING; 

if (m__pPCB) m_pPCB->ProcessConnectionState (conn) ; 

} 

///// Debugging utilities ///// 
ttifdef _DEBUG 

void AtpClientSocket: : As sertValid ( ) const 
{ 

AtpSocket : : AssertValrd ( ) ; 

} 

void AtpClientSocket :: Dump (CDumpContext& dc) const 
{ 

AtpSocket: :Dump(dc) ; 

} 

#endif / / DEBUG 



#ifdef SOURCE_CONTROL_BLOCK 
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M Project Name: E~PS Client/Server program 
!-E-PS Inc. 

/Copyright 1996, 19 97. All Rights Reserved. 
\ : SUBSYSTEM: Cl ient Protocol 
;;$Workfile: atpcl ient . cpp $ 

I $Author : Ttonchev $ 
;'$Revision: 12 $ 
;;$Date: 1/31/97 2:49p $ 
|'$Modtime: 1/31/97 2:3 8p $ 

ji$History: atpclient . cpp $ 

: : ***************** version 12 ***************** 
: * User: Ttonchev Date: 1/31/97 Time: 2:49p 

* ' * Updated in $/atp/Cl ient Protocol 

* * Fixed locking mechanism 

> . * 

1 ' * ***************** Version 11 ***************** 
User: Ttonchev Date: 1/31/97 Time: 1 : 03p 

Updated in $/atp/Client Protocol 

1 ; * 

***************** Version 10 ***************** 
User: Jrward Date: 1/27/97 Time: 12 : 08p 

M* Updated in $/atp/ClientProtocol 

: t * Added VSS history stuff. 

l&endif // SOURCE_CONTROL_BLOCK 
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// atpclient.h : interface of the At pCl i en t Socket pXass 



#ifndef ATPCLIENT_H_ 

#define ATPCLIENT H__ 

# include "stdafx.h" 

#include "atpsock.h" 

#include " callback . h" 

# include " idf server . h " 



typedef long AtpConnUID; 



class AtpConnect ion 
public : 

enum AtpState { 

CONNECTING, 

WAITING, 

RECEIVING, 

PAUSED , 

CLOSING 

}; 



// Connection just created 

// Connection established; waiting for transfer 

// Transfering data 
Transfer paused for some reason 
Connection will be closed 



AtpConnUID uid; 
AtpState state ; 
AtpAttrib provider; 
CString peer_address; 
unsigned int peer__port ; 
SocketTraf f ic *traff ic; 

IDFile *idf ; // Valid only if RECEIVING, or PAUSED 



class AtpCl lent Socket : public AtpSocket , public IAtpRecvCal lback { 
// Inherited relevant public methods: 
// . Initial izeClienfc O , Authenticated ient ( ) 

public : 

■ AtpClieritSocket ( IDFServer * idf ^server , lAtpCallback * pCB =. NULL) ; 
virtual -AtpCl ientSocket ( ) ; 

void InitObserver (AtpConnUID uid, lAtpProgressCallback *pPCB) ; 
AtpConnection* GetConnect ionState ( ) ; 

void Run (AtpAttrib& provider, long bsize) ; 
void RunAnon (IDFile * idf, long bsize) ; 

virtual void ProcessWri ttenBlock (AtpFi le *atp) ; 
virtual void ProcessStall (AtpFile *atp) 

virtual void Close ( ) ; 

private: 

IDFServer *m__idf_ server ; 
lAtpProgressCallback *m_pPCB ,• 
AtpConnection conn; 

void ClientliOopO ; 

void CI ientLoopAnon (IDFile *idf) ; 
protected: 
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;!#ifdef _DEBUG 

[\ void AssertValidO const; 

M void Dump (CDumpContext& dc) const; 

h#endif // _DEBUG 

u )! 

;,#endif // ATPCLIENT_H 



SOURCE_CONTROL._BL.OCK 
Project Name: E-PS Client /Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM : E-parcel . com 

$Workfile: atpclient.h $ 

$Author : Jrward $ 

$Revision: 5 $ 

$Date: 1/27/97 12 : 13p $ 

$Modtime: 1/27/97 12 : lOp $ 

$Hi story: atpclient . ii $ 
* 

* ***************** Version 5 ***************** 

* User: Jrward Date: 1/27/97 Time: 12 : 13p 

* Updated in $/atp'/ Include 

* Added VSS history stuff. 
#endif / / SOURCE__CONTROL._BL.OCK 
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// 

// C++ code file 
// (c) 19 9 6 AGS 
// 

// JRW 961216 Added m_conf igVals , so we can pass in block xfer size, etc. 

#include "stdafx.h" 
#include "objbase.h" 

^include < assert . h> 

#include "SocketControl.h" 

itinclude " AtpAttrib . h" 

^include "atpexcept .h" 

#include "sockutil .h" 

^include "utility .h" 

#include "atpdata.h" 

extern int WriteErrorLog (const char *, const char- *) ; 

SocketControl : : SocketControl (AtpAttrib & configVals) : 
m_conf igVals (configVals) 

{ 

m_request Value =0; // JRW 96112 7 Default is, you can transfer anything. 
m_l sock = NULL ; ~* 

m_def aultThreadPriority = THREAD PRIORITY NORMAL ; 

u i djnax = 0 ; 

} 

SocketControl ;; -SocketControl ( ) { 
if (m__lsock) delete m_lsock; 
m_lsock = NULL; 

for (int i = 0; i < m_threads . GetSi ze ( ) ; i + +) 
delete ( CWinThread *) ra_thfeads [i] ; 

.} 

BOOL SocketControl :: Initialize (IDFServer *idfs, lAtpProgressCallback *pPCB) { 
m_idfs - idfs; 
m__pPCB = pPCB ; 

m_lsock = new CListeningSocket (this) ; 

if (m_lsock- >Create (ATP__PORT) ra_lsock->Listen() ) 

return TRUE; 
return FALSE; 

} 

void SocketControl : : ProcessPendingAccept(CAsyncSocket *sock) { 
//for (int i = 0; i < m_todelete . GetSi ze < ) ; i++) 
// delete m^todelete [i] ; 
/ /m_todelete . Re move All ( ) ; 

CAsyncSocket *atp_sock = new CAsyncSocket () ; 
if ( ! sock->Accept (*atp__sock) ) { 

delete atp_sock; 

return ; 

} 

Threadlnfo * info = new Threadlnfo ( ) ; 
info->me = this; 

info - >sock = atp_sock- >Detach < ) ? 
delete atp_sock; 
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I StartSocketThread { inf o) ; 



void SocketControl : :CloseConnections ( ) { 

\ // close all connections 

; CSingleLock lock ( &m_sockmutex) ; 

1 lock . Lock ( ) ; 

j for ( int i = 0 ; i < m_sockets .GetSize ( ) ; 
I // shutdown the communication 

/ / this cannot be done cleanly — CSocket is not thread- safe 

shutdown ( ( (CSocket *) m__sockets [i] ) - >m_hSocket , 2) ; 

lock . Unlock ( ) ; 

// wait for all threads to terminate 
while (TRUE) { 

CSingleLock lock(&m__mutex) ; 

lock . Lock ( ) 

int num = ra_conns.GetSize() ; 

lock . Unlock ( ) ; 

if (num == 0) break; 

Sleep (10) ; 

} 

void SocketControl PollServers (AtpAttrib providers) { 
AtpAttrib provider; 
CString s_provider, sjparams ; 

POSITION pos = providers . GetStartPosit ion () ; 
while (pos) { 

providers - GetNext Assoc (pos , s_provider, s_params) ; 

provider . Remove All () ; 

provider . ParseLine ( s_params } ,- 

if ( Serve rConnect ionAlready (provider) ) 
cont inue ; 

BOOL bSuccessful; 

bSuccessful = Connect ToServer (provider) ; 

// Write something to the log . . . 
CTime t = CTime : : GetCurreritTime ( ) ; 
CString stitne = t ; Format {" %#c" ) ; 
int status = ERROR_SUCCESS ; . 
CString tmp; 

tmp . Format ( " %s attempt at %s - - %s" , 

(bSuccessful ? "Successful 11 : "Unsuccessful"), 
(const char *) stime, 

(const char *) provider [ " ServerName" ] ) ; 
status = Wri teErrorLog ( " Last ServerPol 1 " , tmp); 

} 

//Important; 

// LocklDFList ( ) does lock the list and may cause other threads to block. 
// For that reason, it is important to lock it only for a while. Also, 
// operations related to the IDFServer may thus cause a deadlock. 
// Therefore, it is best to use the trick below in cases where one needs 
// extensive computation or IDFServer related operations. 



CPtrArray updates ; 

CPtrArray *idf s = m__idf s - >L»ockIDFL.ist ( ) ; 
for- (int i = 0 ; i < idf s->GetSize () ; i + + ) { 
AtpAttrib arg; 

IDFile *idf = (IDFile *) (*idfs) [i] ; 
idf->GetAttributes(arg) ; 

if ( ! arg [ » SERVERNAME " ] . IsEmpty { ) && ! idf - >I sLocked ( ) ) 
•updates .Add (idf ) ; 

} 

m__idf s->UnlockIDFList ( ) ,- 

for (int j =0; j < updates . Get Size () ; 

ConnectToServerAnon ( ( IDFile* ) updates [j] ) ; 

} 

// s ee if we already have a connection going for a particular 

// server before the client starts a (new) connection to it ... 

// Note; not really thread safe, the server could initiate a connection 

// in the interval between when we check and when we start, but 

// Theo wants it this way. 

BOOL SocketControl : : ServerConnectionAl ready (AtpAttrib provider) 
{ 

// XXX Note: 

// ... need to tell Theo, we have to convert serverName to, a dot ted- name 
// IP address for this to work, since GetPeerName only returns dot ted -name 
// IP addresses, not the local . host . com- style name we may be looking for. 
// Also, there may be more than one local . host . com- style name for 
/ / a given server . 

// Also, certain types of cluster technologies for servers work by 

// mapping a given local.host.com to different IP addresses in a round-robin 

// fashion, etc. 

// Ergo, it sounds like we need our own identification mechanism, this 
// stuff about relying on either the IP address or the domain name 
// is a temporary hack. 

const CPtrArray * p_ conns = GetAl IConnect ionSt ates ( ) ; 
assert (( "Bad internal pointer p_conns " , p_conns 1= NULL) ) ; 
int connect ionCount = p_conns - >GetSize ( ) / 
for (int idx = 0/ idx < connect ionCount ; idx+ + ) 
{ 

/* 

CSt ring this ServerName = 

( (AtpConnection*) (p_conns - >GetAt (idx) ) ) - >peer_address ; 

// see if ip address 

if (inet__addr (serverName) != I NADDR NONE 

serverName = = thisServerName) 
return TRUE ; 
// see if real name 

hos tent *info = gethostbyname (serverName) ; 
for (int i = 0; inf o- >h_addr_list [i] ; i++) { 
in__addr addr ,- 

addr.S_un.S_addr = *.( long* ) inf o- >h_addr_list [ i ] ; 
if (inet_ntoa(addr) == thisServerName) 
return TRUE ,- 

} 

if (provider [ " ProviderName " ] == 

; . - 3 
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( (Atp Connect ion* ) (p__conns ~ >GetAt (idx) ) ) - >provider I " ProviderName " ] ) 
return TRUE; 
} 

return FALSE ; 

> 



BOOL. SocketControl : :ConnectToServer (AtpAttrib provider) { 
Threadlnfo * info - new Threadlnfo ( ) ; 
info - >me = this ; 

info->SOCk = INVALID__SOCKET; 
info->host = provider [ " ServerName " ] ; 
info->port = ATP__SERVER__PORT ; 
info- >provider = provider ; 
info->idf = KUL.L,; 

StartSocketThread(info) ; 

return TRUE; 

} 

BOOL. SocketControl ConnectToServerAnon (IDFile *idf) { 
AtpAttrib arg; 

id£->GetAttributes (arg) ; s 
CString server = arg [ATP_ARG_SERVER] ; 
UINT port; 
try { 

port = AtpAttrib: :ParseInt (arg tATP ARG PORT] ) ; 

} catch (Format Except ion ex) { 
ex ; 

port = ATP ANON SERVER PORT ; 

} 

Threadlnfo * info = new Threadlnfo () ; 
info->me ~ this; 

info->sock = INVALID_SOCKET; 
info->host = server; 
info - >port = port ; 
info->idf = idf ; 

StartSocketThread (info) ; 

return TRUE; 

} 

void SocketControl : : StartSocketThread (LPVOID pParam) { 

CWinThread * thread = Af xBeginThread ( Ini tSocketThread , pParam, 
m__def aui t ThreadPr ior i ty f 0, 

CREATE SUS PENDED ) ; 

thread - >m__bAutoDelete = FALSE; 
m_threads . Add ( thread) ; 
thread - >ResumeThread ( ) ,- 



UINT SocketControl : : InitSocketThread (LPVOID pParam) { 
Threadlnfo * inf o = (Threadlnfo *) pParam; 

if (info->sock == INVA£.ID_SOCKET) 

info->sock = SocketConnectTo ( inf o- >host , inf o- >port ) ; 

4 
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if (info->sock == INVALID__SOCKET) 
return 1 ; 

AtpClient Socket csock ( info- >me- >m_idfs , inf o->me) ; 
assert ( csock . Attach (info->sock) ) ; 
info->rae->ModifySocketList (csock, TRUE) ; 

info->me->RunClientSocket (csock, info->provider, info->idf) ; 
inf o- >me- >Modif ySocketList (csock, FALSE) ; 
delete info ; 



return 0; 

} 

void SocketControl : :RunClientSocket (AtpClientSocket& csock, AtpAttribfc provider, 

IDFile *idf) { 

CSingleLock lock ( &m_raut ex ) ; 
lock . Lock ( ) ; 

int new__uid - uid_max++ ; 
lock.UnlockO ; 

csock . InitObserver (new_uid ( this) ; 
try { 

csock.RunAnon(idf, AtpAttrib: : Parselnt (m_conf igVals ["ProtocolBlockSize"] ) ) ; 

} 

else { 

AtpAttrib providers; 

providers . ParseLine (m_conf igVals [ " Providers ■« ] ) ; 

csock. Run (providers, AtpAttrib: : Parselnt (m_conf igVals [ " ProtocolBlockSize » ] ) ) 

} 

} catch (AtpAuthenticationException ex) ( 
ex ; 

Af xMessageBox ( "Cannot authenticate, to server") ; 

} 

catch (CMyException ex) 
{ 

ex ; 

} 

} 

void SocketControl : : Modi f ySocketLi s t (CSocket& sock, BOOL add) { 
CSingleLock lock ( &ra_sockmutex) 
lock . Lock ( ) ; 
if (add) 

m_sockets . Add (&sock) ; 
else 

for (int i = 0 ; i < m_sockets . GetSize ( ) ; i++) 
if (m_sockets[i] == &sock) { 
m__sockets - RemoveAt (i) ; 

i — ; 
} 

lock.UnlockO ; 

} 

// JRW : Return state reference for a given connection: 
// IN: uid: id of the connection 
"// OUT: conn: At p Connect ion reference 

BOOL SocketControl: : Ge tConnect ionState < long uid, AtpConnec t ion* & conn) { 
CSingleLock lock ( &m_mutex) ; 
lock . Lock ( ) ; 
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; 5 BOO Li found = FALSE ; 

t\ int size = m_conns .GetSize { ) ; 

for (int i = O; i < size; i++) { 

AtpConnection *mconn = (AtpConnection *) m_conns [i] ; 
' J if (mconn- >uid = = uid) { 

■ ' conn = mconn ; 

- ' found = TRUE; 
1 \ break ; 

: ; } 

; ! ) 

\\ Lock . Unlock () ; 

: return found.; 

• } 

\/ / jrw : Return pointer to array of all connections. 

; \ 

\ iconst CPtrArray* Socket Control : : Get All Connect ionSt at es ( ) { 
return &m_conns ; 

\\) 

1 'SocketTraf f ic Socket Control : : GetSocketTraf f ic ( ) { 
]' CSingleLock lock ( &m_mutex) ; 
j \ lock . Lock ( ) ; 

SocketTraffic traffic = m_oldtraffic 
, j int size = m_conns.GetSize() ; 
• } for (int i = 0; i < size; i++) 

traffic += *( (AtpConnection *) m__conns [i ] ) - >traf f ic ; 

! ' lock . Unlock ( ) ; 
return traffic; 

;;} 

- void. SocketControl : : ProcessConnectionState (const AtpConnect ion& conn) . { 
\\ if (conn. state = = AtpConnection :: CONNECTING |j 

\\ conn. state =w AtpConnection: : CLOSING) { 

U CSingleLock lock(&m_mutex) ; 

\ | lock , Lock ( ) ; 

j ) switch (conn .state) { 

|| case AtpConnection :: CONNECTING: 

; I m_conns . Add ( (void * ) &conn) ; 

I \ break ; 

| I case AtpConnection: : CLOSING : 

j! for (int i = 0; i < m_conns - GetSize ( ) ; i++) 

U if ({ (AtpConnection* ) m^conns [i] )- >uid == conn. uid) { 

!j m_conns . RemoveAt ( i ) ; 

\'\ m_oldtraffic + = *conn . traffic ; 

> ! break ; 

i! > 

\ \ break ; 

i! > 

(j lock . Unlock ( ) ; 

: I Y 

II . " ' 

* i if (m__pPCB) m_pPCB~ > Proces s Connect ionS tat e (conn) ; 

II 1 

! ! // JRW 961127 

H // This implementation uses a Set/Get model for implementing 

M 
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// RequestTransfer , rather than a callback function 

/ / for the moment, it looks like we don't need the generality, 

// and this is dumb and easy. 

long SocketControl :: RequestTransfer (long size) 
{ 

(VOID *) size; 

return m_request Value ; 

} 

void SocketControl : : SetRequestTransf er (long requestValue ) 
{ 

m_request Value - requestValue; 

} 

void SocketControl :: SetProtocolThreadPriority (int iPriority) // Set it to this. 

{ 

m_def aultThreadPriority = iPriority; 

for (int i = 0; i < m_threads . GetSize ( ) ; i++) { 
DWORD retval ; 

CWinThread *thread = (CWinThread * ) m_threads [i] ; 
// see if still active 

if ( SGetExitCodeThread ( thread- >m_hThread , &retval) || 
retval != STILL_ACTIVE) { 

m_threads . Remove At ( i ) ; 

delete thread; 

i — ; 

continue ; 

} 

thread- >SetThreadPriority (iPriority) ; 

} 

} 

int SocketControl : :GetThreadPriority ( ) // Read from OS. 
{ 

return m_def aultThreadPriority; // Read from OS, not this.. 

} 



// End of code 

# i f de f SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E~PS Inc . 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: Client Protocol 

$Workf ile : SocketControl . cpp $ 

$ Author : Ttonchev $ 

$Revision: 17 $ 

$Date: 2/03/97 1 : 03p $ 

$Modtime: 2/03/97 1 : 03p $ 

$Hi story : SocketControl -. cpp $ 
* 

* ***************** Version 17 ***************** 

* User: Ttonchev Date: 2/03/97 Time: 1 : 03p 

* Updated in $/atp/ClientProtocol 
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* added, some comments 

* ***************** Vers ion. 16 ***************** ' ■ 

* User: Ttonchev Date: 1/31/97 Time: 2 : 50p 

* Updated in $/atp/Cl ient Protocol 

* made socket connection asynchronous , so that blocking of the main 

* t hread i s avo i ded 
* 

* ***************** ~v& r s i on 15 ***************** 

* User: Ttonchev Date: 1/31/97 Time: 1 : 04p 

* Updated in $/atp/Cl ient Protocol 

* Added restart of Smart load connections 
* 

* ***************** Version 14 ***************** 

* User: vJrward Date: 1/27/97 Time: 12 : 08p 

* Updated in $ /atp/Cl ient Protocol 

* Added VSS history stuff. 
#endif // SOURCE_CONTROL_BLOCK 
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: // 

| // C++ header file 
j // (c) 19 9 6 ACS 

- // JRW 961216 m_conf igVals added, so we can pass xfer block size. 

#ifndef _SOCKETCONTROL_H_ 
# define _SOCKETCONTROL_H__ 

^include "stdafx.h" 

#include "afxmt.h" 

# include "callback.h" 

# include "Istnsock.h" 

^include "atpsock.h" 

ft include "idf server .h" 

^include "atpclient .h" 

U include "AtpAttrib.h" 

const ATP_PORT = 608; 

const AT P SERVE R_PORT = 609; 

const ATP_ANON__SERVER__PORT = 610; 

class SocketControl : public ISockCallback, public IAtpCallback, 

public IAtpStateCallback, public IAtpProgressCallback 

{ ~ , 

publ ic: 

SocketControl (AtpAttrib & conf igVals) ; 
virtual -SocketControl () ; 

publ ic : 

virtual void ProcessPendingAccept (CAsyncSocket *sock) 
//virtual void Proces sClose (CAsyncSocket *sock) ; 

virtual BOOL GetConnectionState (long uid, AtpConnect ion* & conn) ; 
virtual const CPtrArray* GetAllConnect ionStates ( ) ; 
virtual SocketTraf f ic GetSocketTraf f ic { ) ,- 

BOOL Initialize (IDFServer *idfs, IAtpProgressCallback *pPCB) ; 
void PollServers (AtpAttrib providers) ; 
BOOL ConnectToServerAnon ( IDFile *idf); 
BOOL ConnectToServer (AtpAttrib provider) ; 
void CloseConnect ions ( ) ; 

virtual void ProcessConnectionState (const AtpConnection& conn) ; 

private : 

struct Threadlnfo { 
SocketControl* me; 
SOCKET sock; 
CString host; 
UINT port ; 
AtpAttrib provider; 
IDFile *idf ; 

} / 

void StartSocketThread (LPVOID pParam) ; 
static UINT InitSocketThread (LPVOID pParam) ; 

void RunCl ient Socket (AtpClient Sockets sock, AtpAttrib^ provider, IDFile *idf 
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? void ModifySocketList (CSocket& sock, BOOL add) ,- 
* j // JRW 961127 

' // This is the dumb and simple implementation, without really 
]]// using the generality of a callback. 
I t public : 

I virtual long RequestTransf er {long size) ; 
, : virtual void Set Request Transfer (long r equest Value ) ; 

; * 

]\ virtual void SetProtocolThreadPriority (int iPriority) ; // Set it to this. 
| virtual int GetThreadPriority ( ) ; // Read from OS. 

* ' private : 

;; BOOL, ServerConnectionAlready (AtpAttrib provider) ; 
I ; private : 

|. AtpAttrib Sc m_conf igVals / // JRW Reference to global settings. 

[\ IDFServer *m_idf s / 

\ lAtpProgressCallback *m_pPCB ; 

1 CListeningSocket *m_lsock; 
' ] CP tr Array m_conns ; 

. i AtpConnUID uid__max; 

1 SocketTraffic m_oidt raf f ic ; - 

J< CMutex m_mutex , m__sockmutex; 

Is CPtrArray m_threads , m_sockets; 

\ ■ / / JRW 961127 

long m_r equest Value ; 

int m_def aultThreadPriority ; 

si }; 

M 

j|#endif // _SOCKETCOWTROL_H_ 

• i 

i : // End of headers - 



I #ifdef SOURCE_CONTROL._BI.OCK 

I Project Name: E-PS Client /Server program 

j E-PS Inc . 

j Copyright 1996, 1997. All Rights Reserved. 

j SUBSYSTEM: E~parcel.com 

I $Workfile: SocketControl .h $ 

j $Author : Ttonchev $ 

I $Revision : 13 $ 

j ^$Date : 1/31/97 2:50p $ 

j $Modtime: 1/31/97 2 : 19p $ 

j . 

j $History: SocketControl - h $ 

I * 

s * *****■*■**■*■*-*■-***■*■*■* Version 13 ***************** 
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j I 
\ ) 

1 \ 



ii * User: Ttonchev Date: 1/31/97 Time: 2 : 50p 

< I * Updated in $ /atp/ Include 

J * made socket connection asynchronous, so that blocking of the main 

!: * thread is avoided 

ii* 

i 

* ***************** Version 12 ***************** 

|i* User: Ttonchev Date: 1/31/97 Time: 1 : 04p 

j:* Updated in $/atp/Include 

!| * Added restart of Smartload connections 

<■ * 

I ,. * ***************** Version 11 ***************** 

)\* User: Jrward Date: 1/30/97 Time: 12 : 42p 

Updated in $/atp/ Include 

\l * changed port for SL server to 610 (from 609) 

ii * 

ij * ***************** Version 10 ***************** 

'\ * User: Jrward Date: 1/27/97 Time: 12 : 13p 

j * Updated in $/atp/Include 

[t * Added VSS history stuff. 
i#endif // SOURCE__CONTROL__BLOCK 

li 
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// ClientApp . cpp 
// 



Defines the class behaviors for the application. 



#include "stdafx.h" 

#include "stdlib.h" 

linclude <assert .h> 

#include "winnls . h" 



#include 

# include 

# include 



"utility . h" 
"atpattrib . h ,f 
' atpexcept . h" 



] I ^include 

1 . # include 

s ; # include 

j \ #include 

! ^ #include 

; ; # include 



"ClientApp . h" 
"ClientAppDlg . h" 
"SmartLoad . h" 
"packfile . h" 
•DbgConf igDlg . h n 
'TextDisplayDlg . h" 



■ J # include " PropertyPageDialAutomatically . h" 
| j #include " PropertyPageFirewal 1 . h" 

•j #include " PropertyPage Internet Connect ion . h" 
|j # include " Property Page I PAs signment . h " 
:j # include » PropertyPageProxylnf o . h" 
|j #include " PropertyPageRasScript . h " 
I ' 

■ j #ifdef DEBUG 

#define new DEBUG_NEW 
: I #undef TH I S F I LE 

static char THIS FILE [] = FIDE ; 

: ; #endif 



\\ / / So that different modules will report the same build date 
,! CString g_ClientAppBuildDate ; 

) i // F or debugging and testing only ... 

I I BOOD g_b S i rnu lat eTrans f e r = FALSE; 

j I BOOL g_bSampleDisabled = FALSE ; 

i ! ' 

: i HINSTANCE CGlient: :m hRasApi3 2D1 1 / 

H 

n ///////////////////////////////////////////////////////////////////////////// 

if// CClient 

; I 

\\ BEGIN_MESSAGE_MAP (CClient , CWinApp) 
j| //{ {AFX_MSG__MAP (CClient ) 

jl // NOTE - the ClassWizard will add and remove mapping macros here. 
// DO NOT EDIT what you see in these blocks of generated code' 

//} }AFX_MSG 

ON_COMMAND ( ID HELP , CWinApp : : OnHelp ) 

; END MESSAGE MAP ( ) ; 

\\/// //////////////////////////////////////////////////////////////// 

X\f / CClient construction 



j jCClient : : CClient ( ) : 

| j m_bRASAlreadyActive (FALSE) 

\\ m^bSplashScreen (TRUE) 



\l // TODO: add construction code here, 

!j // Place all significant initialization in Initlnstance 

So that different modules will report the same build date ... 
!// {initialize here, not statically, so that we don-t get a bogus 
\ 1 / / memory- leak message from the debugger.) 

[] g _ClientA PP BuildDate = "(Beta of « DATE » « TIME ".)"; 

'I// Get RasApi32.dll, if not exists, RAS was not installed so that 

' 7 / Ras connection can not be made - 

It if (NULL == m_hRasApi3 2Dll ) 

j! m_hRasApi32Dll = LoadLibrary ( " rasapi32 . dll " ) ; 

I \ . 
!'// This is just for convenience tracking down memory leaks using 

h'// the MS VC++ debugger: 

l|#ifdef DEBUG 

il#mclude <crtdbg.h> 

II long xnt dbgAlloc = -1; 

J _CrtSetBreakAlloc(dbgAlloc) ; 
■ * # endi f / / DEBUG 

i!> . 

\\t u n f // u // f n u u u u / f / n n u / i //// n / 1 / n t /////////// f ///////'/// u ////// / 

\\ / / The one and only CClient object 

: >CClient theApp ; 
>i 

f // Server to connect to (temporary) 

! , #def ine DEFAULT ATP PROVIDER " Elect roni cParce lService " 

! J #def ±nt DEFAULtIaTpIserver -theserver.e-p.rcel.com- // "199.103.208.230.. // Theo s machx 

h ne via terra.net 

M #define DEFAULT ATP PASSWORD "testing" 

|| // Registry key names we use; 
// Note: 

i; // Probably at least some of our values should go into HKEY — CURRENT — USER : 
i> // .... have to figure this out later. 
> I // Note : 

!: // Normally these should be set up by Ins tallShield instal L/umnstall . 

// . .. Keyl, Key2 are for full deletion: Windows95 deletes subkeys 
]l // automatically, but the documentation for Windows NT says you can't. 

! #define COMPANY "EPARCEL" // Must be what Instal IShield uses for 

j #define APPNAME "Client" // <Company> <AppName> <Version> 

#define VERSION "970128' 



const char * g Client Regis t ration_Key = 

g„ _.a {"SoftwareW" COMPANY "\\" APPNAME "\\" VERSION}; 

const char * Registration_Keyl= { "Sof tware\\ " COMPANY »\\" APPNAME); 
const char * Registrat ion_Key2= { » Sof tware\\ " COMPANY } ; 

// Returns ERROR_SUCCESS on success ... 

int WriteErrorLogValue (const char * ItemName, const char * resultValue) 

HACKassert ("Bad ItemName pointer passed", ItemName 1= NULL); 
HACKassert ("Bad resultValue pointer passed", resultValue I- NULL); 

HKEY hKey = NULL ; 

DWORD keyDisposition ; 



if 



LONG status ; 

status = RegCreateKeyEx ( 

HKEY LOCAL_MACHINE , // open key 

g_C 1 i en t _Reg i s t r a t i on_Key , / / subkey 

0 // reserved. 

NULLi // address of class string 

REG_OPTION_NON__VOLATILE, / / options flag 

KEY ALL ACCESS , // security access 

NULL " // ke y security structure 

&h Key // opened handle 

&keyDisposition) ; // disposition value 
if (status != ERROR_SUCCESS) 
{ 

SetLastError (status) ; 
HACKassert ( "Error on RegCreateKeyEx" , status == ERROR_SUCCESS) ; 
return status ; 

if (IkeyDisposition != REG CREATED NEW KEY ) && 

(keyDisposition < = REG OPENED EXISTING KEY) ) 

{ 

status = E RROR I N VAL I D DATA ; 

SetLastError ( status ) ; 
HACKassert ("Bad disposition code on RegCreateKeyEx" , status == ERROR_SUCCESS ) ; 
return status ; 
} 

CString quotedValue = AtpAttrib : : QuoteString ( resultValue? ) ; 
status = RegSetValueEx ( 

hKey, // °P en 

(char *) (const char * ) ItemName , // which item 

NULL , // reserved 

REG_SZ, // fc yP e 

(CONST BYTE *) (const char * ) quotedValue , // dataValue 

strlen (quotedValue > + l> // buffer size needed 

if (status 1 = ERROR__SUCCESS) 
{ 

SetLastError ( status ) ; 
HACKassert ( "Cannot set registry value status = = ERROR_SUCCESS) ; 
return status; 
} 

status = RegCloseKey (hKey) ; 
hKey = NULL; 

if (status 1= ERROR_SUCCESS) 
{ 

SetLastError ( status ) ; 
HACKassert ("Cannot close hKey handle" , status == ERROR_SUCCESS) ; 
return status ; 

} 

return status ; 

} 

int WriteErrorLog (const char * ItemName, const char * resultValue) 

CTirae currentTime = CTime :: Get Cur rent Time () ; 
CString stime = currentTime . Format ( " %#c" ) ; 

int status = WriteErrorLogValue ( "LastErrorLogTime" , stime) ; 
if (status != ERROR_SUCCESS) 

return status ; 
return WriteErrorLogValue (ItemName, resultValue); 



M 
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*'// Show usage in a message box 

; >/ / Note : Should put strings into resource file 



;VOID CClient : : ShowHowToUse 
> ( const char * msg , const char 

•;{ 

;HACKassert { "Bad msg pointer passed" , msg ! = 
jHACKassert ( "Bad Bad Command!, ine Part passed" 
j CSt ring message ; 

j if (CString (BadCommandLinePart) - - " " ) 



* BadCommandLinePart ) 



NULL) ; 

BadCommandLinePart !- NULL) 



message 
else { 

message 



} 



= "RTFM, Jocko . . .\n" + 



CString ( "Bad command line : \n 
+ CString (msg) 

+ CString ("\n Bad part: " ) 
+ CString (BadCommandLinePart ) 
+ CString ( " \n" ) ; 



CString (msg) + n \n"; 

Try again I \n 



AtpAttrib default Values = GetFactoryDef aultValues ( ) ,- 
I CString tmp = def aultValues - UnparseLine (" \n n ) ; 

message += • 
j "Special use:\n" 

] " \ t/LoadRequest \n " 

* "\t@<f ilename>\n" 

j " \t /AskConf igurat ion\n" 

I "DEBUGGING USE ONLY : \n " 

I " \ t /SimulateTransf er\n" 

; "\t/SampleDisabled\n" 
! " \ t /ShowValues\n" 

" \t/WriteValues\n" 
1 " \t/ResetValues\n" 

j M \t/ClearValues\n" 

"\t/NoSplash\n" 
\ " \t/DebugBreak\n" 

j »\t/Quit\n" 

j "Factory defaults :\n" + 

tmp + 
j "\n" 

j "Hope this helps!"; 

j// Note: maybe no application window, so just pass "NULL" . 

j :: Mess ageBox (NULL , (char *) (const char *) message, "Usage instructions 
! •■ MB_OK | MB I CONEXCLAMAT I ON ) ; 

!!> - 

\- - " = 

I BOOL CClient :: ValidBoolean (CString & sBoolean) 



if ( (sBoolean = = "TRUE") j | 
j (sBoolean == : "YES" ) ) 

\ return TRUE ; 

if ( (sBoolean -- "FALSE") | | 
(sBoolean == "NO") ) 
return TRUE; 

return FALSE; 

} 



I \f / Insanity checks on RAS entry names : return FALSE if looks bogus . 
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l BOOL CClient : : ValidRASScriptKame (CString & RASScr xptName ) 

<jif ( At pAt t r ib :: Par seBool (m__conf igVals ["Connect ionPermaneht " ]) ) 

*• return TRUE; // Direct connection, not dialup . 

Hif ( lAtpAttrib: :ParseBool (m_conf igVals I "Dial Automat ically" ] ) ) 

m return TRUE; // No auto-dial, won't be dialing up ourselves. 

[\ ■ 

l : // XXX Need to validate against actual RAS entries . . 

; 1 int idx = RAS Scrip tName .GetLength ( ) ; 

f if (idx < 2 ) 

\i return FALSE; 

; ; if (idx > 24) 

\\ return FALSE; 

\ \ return TRUE ; 

!j > 

l> // Validity checks on serial numbers: return FALSE if looks bogus. 

I // XXX Note: serial number of "0" will be to indicate we do registration on 

\\ // first connection to client (not implemented yet). 

; BOOL CClient : :ValidSerial (CString & serialNumber ) 

: ; { 

if (serialNumber = = " 0 " ) 
] I return TRUE ; 

'J int idx = serialNumber . GetLength () ; 

if (idx < 2) a -. 

; ] return FALSE ; 

!; // Secret "checksum": first two digits and last two digits must be "42".. 

' | // (With apologies to Douglass P. Adams) 

; \ 

i] if (serialNumber [0] J= '4') 
t\ return FALSE; 

i\ if ( serialNumber [1 3 1= '2') 
! ] return FALSE ; 

\\ if (serialNumber [idx-2] != '4') 
if return FALSE; 

lj if (serialNumber (idx- 1] » = 1 2 ' ) 
!| return FALSE ; 

U .- ■ : ■ ■ 

![ if (idx > 24) // Too long. 

: : return FALSE; 



for (idx--; idx >= 0; idx--) 
{ 

if {! isdigit (serialNumber [idx] ) ) 
return FALSE ; 

} - 

return TRUE; 
} 

// Return FALSE if it looks bogus ... 

BOOL CClient : : Val idSampleTime (CString & sampleTime) 

■{ 

int idx = sampleTime -GetLength () ; 
if (idx < 1) 

return FALSE; 
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for (idx--; idx >= 0 ,- icbc--) 
{ 

if ( lisdigit (sampleTime [idx] ) ) 
return FALSE; 

} 

int nMilliseconds = -1 ; 

sscanf ((const char *) sampleTime, "%u", &nMilliseconds) ; 

if (nMilliseconds < 10 00 ) 

return (FALSE) ; 

if (nMilliseconds > 60 000 ) 

return (FALSE) ; 



return TRUE ; 
} 

BOOL CClient : : Val idClientPoll ingPeriod < CString & clientPollingPeriod) 
{ 

int idx = clientPollingPeriod - Get Length ( ) ; 
xf (idx < 1) 

return FALSE ; 

for ( idx- - ; idx >= 0 ; idx- - ) 
{ 

if ( ! isdigit (clientPollingPeriod [idx] ) ) 
return FALSE ; 

} 

int nSeconds = -1; 

sscanf ((const char *) clientPollingPeriod, "%u", &nSeconds) ; 

// Special case , no client polling . 

// Special case for debugging and testing 
// Minimum, 10 minutes. 

// Maximum, 12 hours. 



return TRUE; 

} 

BOOL CClient = : ValidSampleCount (CString & sampleCount) 

{ 

int idx = sampleCount . GetLength ( ) ; 
if (idx < 1) 

return FALSE;. 

for (idx--; idx >= 0; idx--) 
{ 

if (! isdigit (sampleCount [idx] ) ) 
return FALSE ; 

} 

int nPeriods = - 1 ; 

sscanf ((const char *) sampleCount , " %u" , &nPeriods) ; 

i f (nPeriods < 3 ) 

return (FALSE) ; 
if (nPeriods > 15) 

6 



if (nSeconds = = 0) 

return TRUE; 
if (nSeconds = = 15 ) 

return TRUE ; 
i f { nSeconds < 10*60) 

return (FALSE) ; 
if (nSeconds > 12*60*60) 

return (FALSE) ; 
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return (FALSE) ; 



ireturn TRUE ; 

:} 

// Insanity checks on phone numbers: return FALSE if looks bogus . 
// NOTE: We don't always need. a phone number, which is why we need 
// the default here ... 

BOOL CClient : : ValidRASPhoneNurnber (CString & phoneNumber ) 

{ 

int idx ~ phoneNumber . Get Length () ; 
if (idx < 2) 

return FALSE; 
if (idx > 24) 

return FALSE; 
for (idx--; idx > = 0; idx — ) 

{ 

if (I isdigit (phoneNumber [idx] ) ) 
return FALSE; 

} 

return TRUE ; 
} 

BOOL CClient :: Inval idConf igurat ionValue (const char * name) 

{ 

ShowHowToUse ( " Invalid configuration value . . . 

CString (name) + + m_conf igVals [name] ) ; 

return FALSE; 



VOID CClient: : S< 
CString 



;tSerialInstallationDate (AtpAttrib & conf igVals, 
Sc. textString) 



CTime & t , 



conf igVals [' 
conf igVal s [ • 
conf igVals [' 
conf igVals [ ' 
conf igVals [' 
conf igVals [ ' 



Serial Ins tall Year " ] 
Serial Inst allMonth" ] 
Serial Tnstal IDay" J 
Serial InstallHour" ] 
SeriallnstallMinute" ] 
Serial Ins tallSecond 11 ] 



AtpAttrib: :UnparseInt (t .Get Year (). ) ; 
AtpAttrib; rUnparselnt ( t . GetMonth ( ) ) ; 
AtpAttrib: :UnparseInt(t.GetDay() ) ; 
AtpAttrib: : Unparselrit ( t . Get Hour ( ) ) ; 
AtpAttrib: rUnparselnt (t .GetMinute ( ) ) 
AtpAttrib : : Unparselnt ( t . GetSecond ( ) ) 



textString = 



conf igVals [ "Serial InstallYear " ] 
conf igVals ["SeriallnstallMonth"] 
conf igVals [ " Serial Ins tal IDay " ] 
conf igVals [ " Serial Ins tal lHour " ] 
conf igVals [ "SeriallnstallMinute n ] 
conf igVals [ " Serial InstallSecond" ] 



VOID CClient :: GetSerial Ins t al lat ionDate (AtpAttrib & configVals, 
CString & textString) 



CTime & t , 



CTime ( 

AtpAttrib: : Parselnt (configVals [" Serial InstallYear ,f ] } , 
AtpAttrib: -.Parselnt (configVals ["SeriallnstallMonth"] ) , 
AtpAttrib: : Parselnt (conf igVals [" Serial Instal IDay ,f ] ) , 
AtpAttrib: : Parselnt (conf igVals ["SeriallnstallHour"] ) , 
AtpAttrib: : Parselnt (conf igVals ["SeriallnstallMinute"] ) , 
AtpAttrib: : Parselnt (configVals [ " Serial Instal 1 Second " ] ) ) 



7 



68 • 



textString = conf igVals ["SeriallnstallYear"] 
configVals ["SeriallnstallMonth" ] 
configVals [ "SeriallnstallDay" ] 
configVals [ " Serial Ins tallHour" ] 
configVals ["SeriallnstallMinute " ] 
configVals ["SeriallnstallSecond"] ; 
} 

BOOL CClient t : DoCommandLine ( } 
{ 

// Pick up some defaults ... 

m_corif igVals = GetFactoryDef aul tValues ( ) ; 

CString tmp = m_conf igVals . UnparseLine ( ) ,- // TEMP DEBUG 

// Read saved values from registry, if any. 
try { 

m_conf igVals . Pars eRegis try (g_Cli en t^Regi st rat ion_Key) ; 
} 

catch ( Format Except ion ex) 

{ // error while reading the registry, ignore for now 
HACKassert ("Error reading configuration values from registry: you may continue" , FALSE 
ex ; 

} 

tmp = m_conf igVals . UnparseLine ( ) ; // TEMP DEBUG 

// For debugging in the field, keep track of what's up - . . 
{ 

int status = ERROR_SUCCESS; 

status = WriteErrorLog ( " LastCommandLine " , m_lpCmdLine) ; 
HACKassert ( "BadValue" , ( status ==ERROR_SUCCESS ) [ | {status==ERROR_PILE_NOT_FOUND) ) ; 
} 

// OK, now that we have gotten the current configuration values, we 

// can parse the command line -- there may be some special flags that override 

// the defaults, so we had to read the default values first. 

CString CommandLine = m__lpCmdLine ; 

// Check command line ... 

// (Note: probably should use CWinApp : : ParseCorairsandLine, 
// not this horse -hockey ... 

CString parseChar; // First character, to check for special flags. 
CString token; // First item on command line, 

int idx = 0 ; 

int inext. = 0; 
for ( ; ; ) 
{ 

CommandLine . TrimLef t ( ) ; 
CommandLine . TrimRight { } ; 
token = " " ; 
// Empty line ... 

if (CommandLine == " " ) 

break; // All done. 

// XXX Not smart about embedded spaces yet ... 

// Should scan until quote parity is zero, and first whitespace. 
inext = CommandLine . PindGneOf ( " \t\r\n" ); 

8 
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if ( inext == -1) 

{ 

token = CommandLine ; // ... the last bit of tine command- line 

CommandL ine = " " / 

} 

else{ 

token = CommandLine . Mid ( 0 f inext ) ; 
CommandLine = CommandLine . Mid (inext ) ; 
} 

// Get flag character: ? / @ 

parseChar = token [0] ; 
// Check for " ? " 

if (parseChar =="?") 
{ 

ShowHowToUseC'So you want to know?","") ; 

return FALSE ; 

} 

// Check for "@" ... 

if (parseChar — "@" ) // Read stuff from a file here . ... 

{ 

token = token.Mid(l) ; 
CString dataString; 

ReadFilelntoString (token, dataString); // Need error check ... 
CommandLine = dataString + CommandLine ; 
cont inue ; 
} 

// Check for "/"... 

if (parseChar == "/") // Special processing flag ... 

{ 

CString upperToken = token; 
upperToken . MakeUpper ( ) ; 

if (upperToken == " /SHOWVALUES " ) 

ShowRegistrationValues ( ) ; 
else if (upperToken == " / AS KCONF I GURAT I ON " ) 

RunConf igurat ionWi zard ( ) ; 
else if (upperToken == " /NOSPLASH" ) 

m_bSplashScreen = FALSE ; 
else if (upperToken == " / CLEARVALUES " ) 

m_conf igVals . Remove All ( ) ; 
else if (upperToken == " / LOADREQUEST " ) 

{ // For convenience, this same .exe file also is 

SubmitSmartLoadRequest (m_conf igVals , CommandLine ) ; 

return FALSE; // the helper-app for a web-browser 

} 

else if (upperToken = = " /RE SET VALUE S " ) 

m_conf igVals = GetFactoryDef aultValues ( ) ; 
else if (upperToken == " /DEBUGBREAK" ) 

DebugBreak ( ) ; 
else if (upperToken == " /WRITEVALUES " ) 

m_conf igVals .UnparseRegistry (g_Client_Registration_Key) ; 
else if (upperToken == " /DELETEVALUES " ) 

DeleteRegistrat ionValues ( ) ; 
else if (upperToken == " /QUIT" ) 

return FALSE; 
// These are debugging/test hacks, only - - - 

else if (upperToken == " / SIMULATETRANSFER" ) 

g_bSimulateTransf er = TRUE; 
else if (upperToken =- " / SAMPLEDISABLED" ) 
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g_bSampleDisabled = TRUE 

else 

{ 

ShowHowToUse 

("Invalid command line flag" , 

token + " " + CommandLine) ,- 

return FALSE ; 
} 

continue ,- 
} 

// Something to parse ... 
try { 

m_conf igVal s . ParseLine (token) ; 
} catch ( Format Except ion ex) { 
ex ; 

HACKassertC'Bad command line value", TRUE) ; 

MessageBox(NULL, CString ("Cannot parse command line argument : ") + 
token, "Command line error", MB OK) ; 

} 

} 

// Sanity checks on some values . . . 

if ( I ValidCl lent Poll ingPeriod (m_conf igVals [ "Client Poll ingPeriod" ] ) ) 
return Inval idConf igurat ionValue ( " CI lent Pol 1 ingPeriod" ) ; 

if ( I ValidSampleCount (m_conf igVal s [ " Sample Count " ] ) ) 
return Inval idConf igurat ionValue (" SampleCount " ) ; 

if ( ! ValidSampleTime (m_conf igVals [ " SampleTime " ] ) ) 

return Inval idConf igurat ionValue < "SampleTime" ) ; 

if ( IValidSerial <m__conf igVals ["Serial"] ) ) 

return Inval idConf igurat ionValue ( " Serial " ) ; 

if ( ! ValidRASPhoneNumber {ra_conf igVals [ " RASPhone Number " ] ) ) 
return Inval idConf igurat ionValue ( "RASPhoneNumber" ) ; 

if ( ! ValidRASScriptName (m_conf igVals [ "RAS Scrip t Name " ] ) ) 
return Inval idConf igurat ionValue ( "RASScr iptName ") ; 

if ( ! ValidBoolean (m_conf igVals [ "StartHidden" ]) ) 

return Inval idConf igurat ion Value ( "StartHidden" ) ; 
if ( ! ValidBoolean (m_conf igVals [" Connect ionPermanent " ] ) ) 

return Inval idConf igurat ionValue ( " Connect ionPermanent " ) ; 
if ( 'ValidBoolean (m_conf igVals ["Firewall "]) ) 

return Inval idConf igurat ionValue (" Firewall " ) ; 
if ( [ValidBoolean (m_conf igVals [ " I PPermanent " ] ) ) 

return Inval idConf igurat ionValue ( " I PPermanent " ) ; 
if ( ! ValidBoolean (m_conf igVals [ "DialAutomat ical ly " ] ) ) 

return Inval idConf igurat ionValue (" DialAutomat ical ly" ) ; 
return TRUE; 

} . . ■ 

AtpAttrib CClient GetFactoryDef aultValues ( ) 
{ 

AtpAttrib def aultValues ; 
~ def aultValues . RemoveAll ( ) ; // Make sure it is empty. 
// Values just for diddling this dialog . . . 

def aultValues ["StartHidden"] = "FALSE" ; 

// How we adjust this is not figured out yet ... 

def aultValues [ "ClientPollingPeriod" ] = "1800";// 30 minutes (second; 



// Values set in the CConf igurat ionDialog 
defaultValu.es [ "DialAutomat ically " ] 
default Values ["Firewall"] 
defaultValues [" I P Permanent "3 
defaultValues [ " Connect ionPermanent " ] 
defaultValues ["TCPProxy"] 
defaultValues [ "TCPProxyPortNumber" ] 
defaultValues [ " ServerName" ] 
defaultValues [ " RASScr iptName " ] 

// XXX Not needed? Part of RAS script? 
defaultValues [ " RASPhoneNumber " ] 
defaultValues [ "RASUserName" ] 
defaultValues ["RASPassword"] 



»» FALSE" 
" FALSE" 
" FALSE" 
" FALSE " 



"80" ; 

DEFAULT ATP SERVER ; 

"<undefined>"; 



= "7310793"; 

= "<bad user name>" 

= "unfalll"; 



// Serial number stuff, installation date ... 

// Note: "Serial" is what InstallShield uses ... 

defaultValues ["Serial"] = "°" '> 



// Dummy, not installed 



CTime t = CTime : : GetCurrentTime ( ) ; 

CString debugString; // For debugging. 

SetSeriallnstallationDate (defaultValues ( t, debugString) ; 
defaultValues [ "SerialExpirationPeriod" ] "30"; // 30 days. 



/ / Performance threshhold parameters . - - 

defaultValues [ "SampleMinimumTraf f ic " ] = "300" ; 

def aultvalues ["Sarapl eThreshholdLit tie" ] = "80"; 

def aultvalues [ " SampleThreshholdSome " ] = "65" ; 

defaultValues [ " SampleThreshholdLots " ] = "50"; 

def aultvalues [ "SampleTime" 3 = "5000" 

def aultvalues [ "SampleCount " 3 = "5"; 

// Miscellaneous dialog parameters, etc. 

defaultValues [ " StatusPeriod" 3 = " 1500 " 

// Protocol parameters that are not always dynamic . 

defaultValues [ " ProtocolBlockSi ze " 3 = "2047" 



// For dial-up. 



// Was 2000 (2 seconds) 
// Five samples. 



// 1.5 seconds . 



// Theo ' s default . 



// Added by Theo: - ^ 

defaultValues [ " IDF RECLAIM TIME " ] = AtpAt tr ib : : Unparselnt ( 3L*24L* 6 0L* 6 0L) ; 

// This needs to be something other than the temp directory: 

// this is just what Theo uses while debugging ... 

// The correct value is set up by our installation script. 

char tempDir [20483 ; // ^ad TMP environment value ... 

DWORD status = GetTempPath ( sizeof ( tempDir ) - 5 , tempDir) ; 
assert (status ! = 0) ; 

assert (status < sizeof (tempDir) -5) ; 

CString dirName = CString (tempDir) + " idf « ; // What Theo picked ... 
defaultValues ["IDF DIRECTORY" 3 = dirName; 

// Stuff for SmartLoad requests .. . 

dirName = CString ( tempDir ) + "LoadReguestDir " ; 
def aultvalues ["LoadRelquestDir" 3 = dirName; 

defaultValues [ "LoadRepuestPeriod" 3 .= "300" ; 

dirName = CString { tenJpDir) + "LoadDeliveryDir" ; 
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// 5 minutes (seconds) 
// default delivery dir. 
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defaultValues [ " LoadDel i\ r eryDir " ] 



Added by Theo : 
AtpAttrib provider, pro\ 
provider- [ " ProviderName " ] 
provider [ " Server Name " ] 
provider [ "ServerPassworcl 
provider [ "UserName " 3 = 
provider [ "User Pas sword " ]| 
providers [DE FAULT AT P : 



defaultValues ["Provider^"] = providers . UnparseLine ( ) 
return defaultValues ; 



} 



VOID CClient: : Dele teRegistr^t ionVa lues ( ) 

! { 

j LONG status; 



status = RegDeleteKey ( 

HKEY LOCAL_MACHINE , 

g__Client_Registrat: 
if (status L = ERROR_ 
{ 



on_Key ) 
) 



SUCCESS 



5 SetLastError (status 

i HACKassertC'Error on RegDeleteKey" , status 

i } 



j ; status = RegDeleteKey ( 

]j HKEY LOCAL MACHINE , // open key 

'{ Registration_Keyl) ; // subkey 

t\ if (status != ERROR_SUC<pESS ) 

ii < 

5 \ SetLastError ( status 

!| HACKassertC'Error on RegDeleteKey" , status == ERROR_SUCCESS ) ; 

!: ) 



; ; status = RegDeleteKey ( 

I \ HKEY LOCAL__MACHINE , 

j| Registration_Key2) ; 

H if (status ! = ERROR_SUC 

; I SetLastError (status 

\ j HACKassert ( "Error on RegDel 

I! > 



\\ // Uses a file mapping to s 
I I // From Microsof t Knowledge 
\l // Application Instance on 



const char 



CLIENT APP NAM 



BOOL App A 1 r e ady Runn i ng (cons 
{ ~ 

HANDLE hMapping = Cre 
(HANDLE 



\ \ 



= dirName ,- 



iders ,- 

= D E F AULT__AT P P RO V IDER; 

DEFAULT_ATP_SERVER ; 

] = DEFAULT ATP PASSWORD ; 

Hiroshi Kobata" ; 
" another " ; 

DER] = provider . UnparseLine ( ) 



/ / open key 
/ / subkey 



ERROR_SUCCESS) ; 



/ / open key 
// subkey 



:ess) 



steKey" , status 



ERROR SUCCESS) 



e whether we are already running 
Base article "Allowing Only One 
flin32s" Q123134, Dec '95. 

E = " Client AppNameDummyFile " ; 

t char * appName ) 



:eFileMapping 
(Oxff ffffff ) , 
NULL , 



// Special handle for swap-file 
// Security attributes . 
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if (hMapping == NULL. I 
{ 

HACKassert ( "Cannot ere at ^ file mapping", hMapping 1= NULL,) 
return FALSE; 
} 

if (GetLastError ( ) 

return TRUE ; 
return FALSE; 

} 



= ERROR ALREADY EXISTS) 



VOID CClient: : ShowRegist|rationValues ( ) 

)isplayDlg (m_conf igVals , 



CTextDisplayDlg text 
" Current 
textDisplayDlg . DoMod^l 



/////////////////////// 
/ / CClient initial! zatic 

BOOL CClxent : : Initlnstanjce { ) 
{ 



/////////////////////////////////////////////////////// 



// CG : This line wa 
AfxEnableControlCont 



added by the OLE Control Containment component 
ainer ( ) ; 



// For debugging / test: 
g_bSimulateTransf er 



xng 



// Check command line 
/ / doing it before "App£ 
/ / to force registry va 



lue; 



if ( ! DoCommandLine ( ) 
return FALSE ; 

// If an instance of the 

if ( App Al r eadyRunni r . 
return FALSE; 



// If "special" serial 

if (m__conf igVals ["Si 
{ 

char message [] 



return FALSE; 
} 

// Verify that we have 
if { ! ValidSerial (m_ 
(m 



PAGE READONLY , 

0, 
32 , 

appName ) ; 



// File protection 

// Max size, high-order part . 

// Max size, low- order part . 

// File name. 



registration values 
() ; 



use only! 
= FALSE ; 



1 readyRunn ing " is so we can use the command line 
s to be set , for debugging . 



) 

client is already running, j ust exit - 
g ( CL I ENT AP P NAME ) ) 



number, serial number still needs to be set . . 
rial" ] " == "0" ) 

"Serial number not set yet : \n n 
" ... code to handle this still needed- " 



:MessageBox (NUlLL, message, "E- Parcel tm Registration Message", 
MB OK I MB ICONEXCLAMATION) ; 



valid serial number . . . 
conf igVals [ "Serial "] ) |i 
oonf igVals ["Serial" ] == "0")) 
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{ 

char message [] 



: :MessageBox(NULL 



MB 



return FALSE; 



/ / Check expiration date 



CTime currentTime = 
CTime installTime ,- 
CSt ring text String ; 
GetSeriallnstallati 
CTimeSpan elapsedTime 
int maxDays = AtpAttr 
if (elapsedTime .~<3efcDe|ys 



CTime : : GetCurrentTime ( ) ; 



{ 

CString message = 



: MessageBox (NULILj 



return FALSE; 
} 

// Standard initializa 
// If you are not usin$ 
// of your final exec 
// the specific initi 



// JRW 

// Compute a few things 1 
/ / as whether we can do ; 
// XXX TBD 

#if def _AFXDLL 

Enable3dControls ( ) ; 
ttelse 

Enable3dControlsStatic 
#endif 



"Your E-Parcel tm client application does not " 

"appear to be installed properly." 

"\n\n" 

"Please be sure that you have installed the " 

"software correctly, and that you have " 

"properly entered the serial number " 

"that was sent to you with the installation " 

"media . " 

»\n\n" 

"The E- Parcel tm client application will now exit. 

message, "E-Parcel tm Registration Message", 
OK 1 MB ICOKEXCLAMATION) ; 



)ate (m_conf igVals , installTime, textString) ; 
- currentTime - installTime; 

ib: : Parselnt (m_conf igVals [ " Ser ialExpirat ionPeriod " ] ) 
() > maxDays) 



MB 



"Your E-Parcel tm client application " 
"appears to be an evaluation copy which has " 
" expired . \n\n " 

"This copy was apparently installed on " + 

textString + 

"\n\n« 

"Please contact E-Parcel for a newer version." 
"\n\n" 

"The E-Parcel tm client application will now exit 

message, "E-Parcel tm Registration Message" , 
OK | MB_I CONEXCLAMAT ION ) ; 



ion 

these features and wish to reduce the size 

table, you should remove from the following 

lization routines you do not need. 



rom the settings we have, such 
. ClientPoll, etc. - . - 



// Call this when using MFC in a shared DLL 
(); // Call this when linking to MFC statically 
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#define HAND_CODED S PLASH 

#ifdef HAND CODED S PLASH 

if (m_bSplashScreen) 
{ 

if (m_splash . Creat 
{ 

m_splash . Set 
m_splash 
m_ splash . Updat 
m_splash . Set T 
} 

m_d.wSplash.Time = 
} 

#endif // HAND CODED_SPLA|SH 



Spl 



ShowWindow 



can take a while here : 



/ / Put initial i zat ion that 
// Theo ' s initialization . 
if ( ! AfxSocketlnit () ) 
{ 

AfxMessageBox ( IDP |SOCKETS_INIT_FAILED) ; 
return FALSE ; 



#if def 
if 



HAND CODED S PLASH 

(m_bSplashScreen) 
{ 



whi le 



Current T 



roy 



( < : :Get 

(tn_splash . 
Sleep (100) ; 
/ / t iraeout expired , des t 
if (m_splash.m_ 

m_splash . Dest 
/ / m_pMainWnd 
} 

#endif // HAND CODED_S 



ime ( } - ra_dwSplashTime < 2500 ) && 
n hWnd ! = NULL ) ) 



the splash window 
! = NULL ) 
roy Window ( ) ; 
UpdateWindow ( ) ; 



CC1 ientAppDlg dig; (m_conf ligVals ) 
int nResponse = dlg.DoMop.al () ; 
i f { nRe spon s e = = I DOK ) 
/ / TODO : Place code 
// dismissed with OK 



} 

else if (nResponse 
{ 



// Note: No "cancel" fc>uttc 

/ / TODO r Place code 
/ / dismissed with C 

} 



// Clean up our communicat 

UndialRASConnectionAutbmat 



// Since the dialog has 
// application, rather 
return FALSE; 



( IDD_SPLASH) ) 



ashSize ( > ; 

(SW_SHOW) ; 
; Window ( ) ; 
ler ( 1 1 50 0, NULL ) ; 



: Get Cur rent Time ( ) ; 



{ 

hefre to handle when the dialog is 



IDCANCEL} 



in our dialog! ! ! So how could we get here? 
here to handle when the dialog is 
eel 



ions stuff 

icallyO 



been closed, return FALSE so that we exit the 
than start the application ' s message pump . 



RASCONNSTATE g_DialStat4 (RASCS_Disconnected) ; // Track progress during dialing 



conriec 



// Callback for RAS 
VOID winapi RasDialFunc 



if (unMsg != WM_RASrjHALEVENT ) 
{ 

CString msg ; 
msg . Format ( "RasD: 



HACKa ssert (msg, unMsg==WM 
} 

i f ( dwError ) 
{ 



/ /only cal 1 the 
if (CClient : : m hR 



{ 



i Error St 



PRasGet 
pRasGetEr 
" RasGet Errors t ring " ) 

if (pRasGetEijrorString) 



{ 

char S2j: 
if (pRai 
stn 
CString 
msg . Fori 
HACKassert (msg, FALSE) ; 



Buf [4096] ; . . = - 

GetErrorString ( (UINT) dwError, (LPSTR) szBuf ,sizeof (szBuf ) -1) 1= O) 

(szBuf , "Undefined. RAS Callback Error") ; 
msg ; 

t ("RAS Callback error: %s : code %ld . " , szBuf , (long) dwError} ; 



} 



} 



} 



g_Dial State 



rasConnState ; 



// Make a RAS connection 
// Returns NULL on fail 
H RAS CONN CClient : : Establ 



{ 



HRASCONN hRasConn; 
PRasDial pRasDial ; 
PRasGet ErrorSt ring 



//If RAS is not inst 
i f ( NULL == m_hRasApk 
return NULL; 



/ / Original code taken f 
pRasDial = (PRasDial 
if (NULL == pRasDial) 
return NULL; 



RASDIALPARAMS rdParaJms ; 
DWORD dwRet; 



txon ... 

UINT unMsg, RASCONNSTATE rasConnState, DWORD dwError) 



lalFunc callback function passed a message that\n" 
. * t WM_RASDIALEVENT : %ld" , long (unMsg) ) ; 
RASD I ALE VENT ) ; 



function when RAS is installed . 
asApi32Dll) 



ring pRasGe t ErrorSt ring ; 

ring = (PRasGetErrorString) GetProcAddress (CClient : : m__hRasApi3 2D1 



ishRASConnection ( ) 



pRasGet ErrorSt ring ; 



ailed, return immediately. 
32D11) 



rom \msdev\saraples\sdk\win32\rasberry\ * . c : 
) GetProcAddress (m__hRasApi3 2Dll , "RasDial " ) ; 



7. ? " 



// setup RAS Dial I'araraeters 



rdParams.dwSize = ei 
Istrcpy ( rdPararas . 



izeof ( RAS D I AIjPARAMS ) ; 

EntryName, m_conf igVals ["RASScriptName"] ) ; // Default- first port f 



lstrcpy (rdParams . s::PhoneNuraber f m_conf igVals ["RASPhoneNumber" ] ) ; // Theo J s machine 7310 



Istrcpy (rdParams . s 



sCallbackNurober , 



■ }; // No callback, just direct. 



lstrcpy (rdParams . s zUserWame, m^conf igVals [ " RASUserName "■ ] > , 



1 s t rcpy ( rdParams . s 
Istrcpy (rdParams . s 
hRasConn --■ NULL ; 



dwRet 



pRasDial ( 
NULL, 
MULL, 
&rdParams 
OL, 



// 



zPassword, m_conf igVals ["RASPassword"] ) ; // 
zDomain, ""); // Default. 

// This is required for RasDial to work. 



for now . 
for now. 



// Ho RAS dial extensions 
// Default phone book, if we need it. 
// Dialing paramaters . 

// RASD I ALFUNC notify function being passed 
(RASDlALFijjNC) RasDialFunc, // tTotifier callback function. 
&hRasConn ; 



xf (dwRet) 
{ 

pRasGetErrorString = (PRasGetErrorString)GetProcAddress (m_hRasApi32Dll f " RasGetError 
String" } ,- 

if (pRasGetErrorString) 

{ ~ ] 

char szEuf [4096] ; * 

xf (pRasGetErrorString { (UINT) dwRet, (LPSTR)szBuf , aizeof (szBuf ) -1) 1=0) ; 
wspri ntf ( (LPSTR) szBuf , "Undefined RAS Dial Error (%ld).", dwRet); ? 

Af xMessacfeBox (szBuf ) ,- 

} 

hRasConn = NipLL ; 
} 

return hRasConn; 

} 

// Hang up current RKs connection 
// Returns TRUE on success. 

BOOL CClient : ■: DisestJablishRASConnection (HRASCONN & hRasConn) 
{ 



// Original code taJ 
DWORD dwRet ; 
if (NULL == m_hR< 
return FALS 

PRasHangUp pRas 



en from \rnsdev\samples\sdk\win32\rasberry\* 
sApi32Dll) 



3 hangup ; 

pRasHangUp = ( P RasHangUp) GetProcAddress (m__hRasApi32Dll , "RasHangUp" 
if (NULL ==■ pRasHangUp) 
return FALSE; 

dwRet = pRasHangUp (hRasConn) ; 



g^DialState 
if (dwRet) 



FASCS Disconnected; // Track progress during dialing 
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{ 

PRasGetSrrorStrin^ 
pRasGetErrorStrinq 
String" ) ; 

if (pRasGetErrorSt] 
{ 

char szBuf [4< 
if (pRasGetEr: 
wsprintf ( 

AfxMessageBox 
} 

hRasConn = NULL ; 
return FALSE ; 



96] ; 

orString ( (UINT) dwRet , (LPSTR) szBuf , sizeof ( szBuf ) - 1 ) 1= 0) 
(LPSTR) szBuf , "Undefined RAS Dial Error (%ld).", dwRet ) ,- 

(szBuf ) ; 



return TRUE ; 



/ / Find out what kind of 
/ / so we can do some t i 
/ / we go along . 



a connection to the network: we have, 
hroughput and performance measurements as 



// Note: lpRasConnState 
// we are first dialing a 
/ / but no connection yet 
BOOL GetRASConnectionlnf 
HINSTANCE hRasApi 
RASCONNSTATE 
DWORD & iRASConnec 
RAS CONN STATUS 



tion ( 
32D11, 
lpRasConnState , 
t ionCount , 
pJasConnStatus ) 



{ 



if (FALSE == hRasApi32Dll) 
return FALSE; 



PRasEnumConnect ions 



pRasEnumConnections = 
ons " } ; 

if (NULL 

return FALSE 



p Ra s EnumCc nne c t 



pRasEnumConnections ; 

(PRasEnumConnections ) Get ProcAddress ( hRasAp i 3 2D1 1 , " RasEnumConnect i 
ions) 



RasConnStatus .dwSize 
RAS CONN RASConnec t i on 
RASConnection [0] .dwSi 
DWORD rasBufSize 



DWORD status = pRasEr 
ScRASConnecti 
&rasBufSize, 
&iRASConnect 

if (status I = 0) 



{ . 

CString msg ; 
msg . Format ( " St s 
HACKassert (msg, status 
} 



if ( iRASConnec t ionCount 



pRasGetErrorString ; 

= (PRasGetErrorString) Get ProcAddress (m_hRasApi3 2Dll , " RasGetError 
ing) 



ed when 

connection and have some dialing state, 



/ / handle of ras dll 
// Allowed to be NULL 



= sizeof (RASCONNSTATUS) ; 
[1] ; 

ze = sizeof (RASCONN) ; 
: sizeof (RASCONN) ; 



umConnections { 

, n [0] , // buffer to receive connections data 

// size in bytes of buffer 
ionCount) ,- // number of connections written to buffer 



atus error on RasEnumConnect ions : %ld" , long ( status ) ) ; 



0) 



1) 
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long ( 

HACKassert {msg, iRASConnecl: 



{ 

CString msg; 

msg . Format { "More tthan one RAS connection: not Bandied yet: %ld" , 
RASConnec t ionGount ) } ; 

ionCount < = 1) ; // Don't handle the case of multiple 
// RAS connections yet . . .. 



if ( i RASConnec t ionCount ===== 0} 



// Nothing connected: if 
if (lpRasConnStat 
RasConnStatus 

else 

RasConnStatus 

} 

else{ 

PRasGetConnectSta 



are dialing, we have passed in an IpRasConnState : 
e. == NULL.) 

. rasconnstate =- RASCS_Disconnected ; // Not dialing 



r as conns tat e = * IpRasConnState ; 



// Still dialing 



tus pRasGetConnectStatus ; 

tus = (PRasGetConnectStatus)GetProcAddress(hRasApi32Dll, "RasGetCon 



pRasGetConnectSt 
nectStatus " ) ; 

if (NULL == pRasGetConnectStatus) 
return FALSE 

status = pRasGettonnectStatus (RASConnect ion [0 ] . hrasconn , 

&RasConnStatus ) ; 



if (status 



0> 



CString msg; 
msg . Format ( " 



HACKassert (msg , status — 



Invalid status on RasGetConnectionStatus : %ld" , 
long (status) ) 
0) ; 



} 



} 



return TRUE ; 



// Used by "dial automatically" on polling: 

// If we are supposed to dial in, and the user said to dial 
// automatically, then go dial! 

// NOTE: We don't know when to hang up automatically: some other program 
// may be using the RAS connection in the meantime (like PointCast) . 
// The best solution might be for the user to give us a RAS connection name 
// that has a time-out lang-up after 15 minutes or something. 

void CClient :DialRASConnectionAutomatically () 

{ ■ f 

if (AtpAttrib: : ParseBool ( m_conf i gVa 1 s [ " Conne ct i on Permanent " ] ) ) 



return; // 
Par 

return; // 
m hRasConn = NULL. 



Permanent connection, don't use RAS dial-up. 
if {AtpAttrib: : ParsJeBobl (m_conf igVals [ "Dial Automat ically" ] ) 1= TRUE) 
Not supposed to auto -dial . 



/-/ Do we already have a RAS connection? 
m_bRASAlreadyAct iv^ = FALSE; 
DWORD iRasConCount 



RASCONNSTATUS RasCbnStat ; 



if ( 3 Get RAS Connect 



// ==o if no RAS connection running. 



ionlnf ormation (m_hRasApi3 2Dll , NULL , iRasConCount , RasConStat ) ) 
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HACKassert ( "XXX Cannot 
} 

m bRASA 1 readyAc t i ve 

// O.K., dial it , 



if (m_bRASAlreadyAc 
return,- // 



m_hRas C onn = Establ 
if ( NULL : = m_b.Ra.sC 



Already have a RAS connection running. 

LshRASConnection ( ) ; 
3nn) 



} 



AfxMessageBox { " KXX Cannot dial RAS " > ; 
} 



/ / Note : no way to ch.ec 
// other application 
// RAS connection with 



for the connection being used by some 
perhaps we should just have the user give us a 
an automatic hang-up timeout, and leave it at that. 



void CClient: : UndialRASjConnectionAutomatically ( ) 
{ 



if (AtpAttrib: : Par 
return; // 

if (AtpAttrib Pars 
return; / / 

i f ( m_ bRASA 1 re adyAc : 
return; / / 

// 



eBool (m_conf igVals [ "Connect ionPermanent " 3.) ) 
Permanent connection, don't use RAS dial-up. 
eBool (m_configVals [ "DialAutomat ically " ] ) != TRUE) 
Not supposed to auto-dial . - 
t ive) 

Already had a RAS connection running, 
so this wasn't auto-dialed.. 



} 



if ( IDisestablishR^SConnect 
{ 

AfxMessageBox ( 
} 



CClient : : -CClient ( ) 
{ 

FreeLibrary (m_hRasfp. 
m_hRasApi3 2Dll 



BOOL CClient :: PreTrans 
{ 

BOOL bResult = CWi 

. # i f de f HAND CODE D 

if (m^bSplashScreeja) 



{ 

if (m_splash.m 
(pMsg- >me 
pMsg- >mesjsage 
pMsg- >message 
pMsg- >raessage 
pMsg->me 
pMsg->mesjsage ' 
pMsg- >mes sage 
pMsg - >mes sage 



t connection information" , FAL'SE) ; 
( iRasConCount > 0) ; 



ion (m_hRasConn) ) 
XXX Cannot hang up RAS " ) ; 



/ Destructor. 
132D11) ; 



LateMes sage (MSG* pMsg) 
^App : : PreTranslateMessage (pMsg) 



= NULL && 
WM_KEYDOWISr ( | 
WM_SYSKEYDOWN | ) 
WM_LBUTTONDOWN | | 
WM_RBUTTONDOWN j j 

WM MBUTTONDOWN j j 

WM__NCLBUTTONDOWN | | 

WM NCRBUTTONDOWN j | 

WM_NCMBUTTONDOWN ) ) 



ir_splash . lies troy Window {) ; 



8i . 



} 



/ /m_pMainWnd- 
} 



>UpdateWindow ( ) ; 



#endif // HAND CODED_ 

return bResult; 

} 

BOOL CClient : :OnIdle ( LONG 
{ 



// call base class id 
BOOL bResult = CWinApb 



le first 

rOnldle (ICount ) ; 



#lfdef HAND CODED S PLASH 

if (m_bSplashScreen) 



work 

if (m_splash.m_hw|nd != NULL) 



// then do our 



if ( : :GetCurrentTime ( ) - m_dwS p las hT i me > 2500 + 100) 
{ 

// timeout 
m__splash . 



expired, destroy the splash window 
.DestroyWindowO ; 
//m_j)MainWnd- >Update Window ( ) ; 



} 



/ / NOTE : don 
/ / CWinApp : : 
} 

else 

bResult = 

} 



t set bResult to FALSE, 
On I die may have returned TRUE 



#endi f / / HAND CODED S E 

return bResult; 

} 



// Routine to do our "set: 



CPropertySheet dlgPrope 



// Temp copy of current ; 
AtpAttrib tconfigVal 

// Wizard pages: 
// Note : I wanted to pas 
// that was causing prob L 
// CPropertyPage - 



CPropertyPagelnterne 
dlgPropertySheet 
page Internet Connect! 



CPrppertyPagelPAssighmen 
dlgPropertySheet . AddjPage 
page I PAs s ignment . Set 



ICount ) 



TRUE; // check again later. . 



configuration" Wizard dialog stuff 
void RunConf igurationWiz^rd ( ) 

tySheet ("XXX Put Title Here"); 



ettings ... 

; = theApp .ra_conf igVals ; 



tconfigVals in the cont rue tors , but 
ems with the IMPLEMENT DYNCREATE macro fc 



Connection pagelnternetConnection ; 
Addbage (&page Internet Connect ion) ; 
dti. SetConf igVals { &tconf igVal s ) ; 



t page I PAss ignment 
( &p age I PAs s ignment ) ; 
f igVals (&tconf igVals) ; 



CPropertyPageDialAutomatically pageDi a 1 Automat ical ly ; 
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82 . 



dlgPropertySheet . AddPage ( &pageDial Automat ical ly) ; 
pageDxalAutomatic:ally . SetConf igVals ( &tconf igVals) ; 



CPropertyPageFire;wall pageFirewall ; 



dlgPropertySheet 



pageFirewall . SetConf igVals {&tconf igVals) 



CPropertyPagePro: 
dlgPropertySheet 
page Proxy Info . Se 



AddPage (&pageFirewall ) ; 



cylnfo pageProxylnfo; 
AddPage (&pageProxyInfo) ; 
:ConfigVals (&tconf igVals) ; 



CPropertyPageRas Script pageRasScript ; 
dlgPropertySheet L AddPage ( &pageRasScr ipt ) ; 
pageRasScript . SetConf igVals ( &tconf igVals } , 



dlgPropertySheet 



if (iResu.lt == I 
{ 

theApp . m_cor 



SetWizardMode ( ) 



int iResult = dllgPropertySheet - DoModal ( ) 
HACKassert ("Bad return from property sheet", 

( iResult == IDCANCEL) | } (iResult == ID_WIZFINISH) ) ; 



D WIZFINISH) 



// Set the new values ... 



} 



:f igVals - Merge ( tconf igVal s ) 
theApp^-m_cor.f igVals .UnparseRegistry ( g__Cl ient_Regi s t rat ion_Key ) ; 
} 



void CoraputeConf igu 
{ 



// This routine derives from stuff from the configuration results, 

// such as whether we can/ should have the client initiate connections (rather 

// than just the server doing this) , whether we want to auto-dial, etc. 



at ionResul t s () 



#ifdef SOURCE_CONT: ^OL_BLOCK 
Project Name: E-PS Client /Server program 
E-PS Inc. 

Copyright 1996, 19(97. All Rights Reserved. 
SUBSYSTEM: ClientApp customer client program 
$Wqrkfile: ClientApp . cpp $ 
$Author: Tding $ 
$ Revision: 5 6 $ 
$Date: 2/03/97 10 
$Modt ime : 2 / 0 3 / 9 7 



$Hi story: ClientAr 



* ***************j 

* User: Tding 



* *************** 

* User : Jrward 

* Updated in $/atjb/ ClientApp 

* Global check- in 



2 6a $ 
10:26a $ 

.p. cpp $ 



Version 56 ***************** 
Date: 2/03/97 Time: 10:26a 

* Updated in $/atd>/ ClientApp 

* Changes made for no RAS situation. 



Version 55 ***************** 
Date: 1/31/97 Time: 2:48p 
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i 38 ' 



**************** 

User : Jrward 
Updated, in $/at 
Stubbed out some 



Version 54 ***************** 
Date: 1/31/97 Time: 10:47a 

p/ClientApp 

ststat asserts for now. 



***************** 

User: Jrward 
Updated in $/atp/< 
Added /SampleDi s 
test hi s protocol 



Version 53 ***************** 
Date: 1/30/97 Time: l:48p 

lientApp 

aisled switch , other stuf f for convenience , so Theo can 
code on his own machine . 



***************** 
User: Jrward 
Updated in $/atp/< 
End- Of -Day checki: 

***************** 
User : Jrward 
Updated in $ /atp/ 
Afternoon check- i: 
Smart Load fixes. 

***************** 
User: Jrward 
Updated in $/atp/ 
Smart load stuff 



Vers ion 52 ***************** 
Date: 1/29/97 Time: 5:30p 

lientApp 
festival . 

Version 51 ***************** 
Date : 1/2 8/97 Time : 1 : lip 

lientApp 

- - mostly fixes to installation from all the 



Version 49 ***************** 
Date : 1/2 7/9 7 Time : 10:29a 

lientApp 

in separate sources SmartLoad . cpp , SmartLoad.h 



***************** 
User : Jrward 
Updated in $/atp/(bl 
New . epsclient Sm^rt 
which he hasn ' t t 



* ***************** 



User : Jrward 
Updated in $/atp/(bl 
Dai ly check- in : looks 
need the new Client 



***************** 
User : Jrward 
Updated in $/atp/i^l 
SmartLoad request 
LoadRequestDir di 
files yet . 

***************** 



User : Jrward 
Updated in $/atp/<[:l 
Added / LoadReques 
app with Web brow 
done yet . 



***************** 
User: Jrward 
Updated in $/atp/ 
Change registry v 
in Theo * s protoco 



Version 48 ***************** 
Date : 1/24/97 Time : 4 : 58p 

lent App 

Load file handling: Just waiting on Theo ' s stuff, 
sted yet . 



Version 47 ***************** 
Date: 1/23/97 Time: 4 : 50p 

ientApp 

like I have the SmartLoad stuff working, I just 
side protocol code from Theo. 



Version 46 ***************** 
Date : 1/23/97 Time : 3 : 04p 

ientApp 

files handled at the file level (* .epsclient in 
ectory} , but no processing of the innards of the 



Version 45 ***************** 
Date: 1/23/97 Time: 12 : 25p 

ientApp 

switch on clientapp.exe, so can use it as "helper" 
ers for SmartLoad. Actual SmartLoad processing not 



Version 44 ***************** 
Date: 1/20/97 Time: 12:37p 

lientApp 

rsion key from 961130 to 970120, to reflect changes 
L code . 
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84.. 



***************** 

User : Jrward 
Updated, in $/atp/Cli 
End of the day check 



2:q± on 43 ***************** 
e: 1/15/97 Time: 5 : 14p - 

4ntApp 
in festival . 



* ***************** 



User: Jrward 
Updated in $/atp/Cli< 
End- of - the -day check 



Version 42 ***************** 
D<jite: 1/13/97 Time: 5 : 02p 

ntApp 
n . 



* ***************** 



User: Jrward 
Updated in $/atp/Cli 
Cannot get ODBC call 
ServerXSAPI . DLL : wo: 
throw when opening 



Version 41 ***************** 
: 1/13/97 Time: 5:00p 

^ntApp 

in fake JRDemo.exe to work from the 
fine when running www server from debugger, but 
tljie CustomerDB - mdb database when running normally as 



a service! 



* ***************** 



User : Jrward 
Updated in $/atp/Cli< 
Small change in "Se 
do. 



Version 40 ***************** 
e: 1/13/97 Time: 9:36a 

intApp 

tup" dialog for setting IDF directory: 



***************** 
User : Ttonchev 
Updated in $ / atp/Cli 



s ion 37 ***************** 
e: 1/07/97 Time: 4:27a 

intApp 



Ve 



***************** 
User: Jrward D 
Updated in $/atp/Cli 
StatusPeriod now con 

***************** -\/ 
User : Jrward D 
Updated in $ /atp/Cli 
Change default serve 



***** j 



User : Jrward 
Updated in $/atp/Cli 
Splash screen can noil/ 



* ********■# 



Dat 



t ***** * 
User : Ttonchev 
Updated in $/atp/Cli 
Added some more supptb 



Ve 



************ * * * 
User: Jrward 
Updated in $/ atp/Cli 
Small changes for s 
out in certain place 



***************** 
User: Jrward 
Updated in $/atp/Cli 
Added SOURCE CONTROL 



still more to 



r s ion 3(5 ***************** 
te: 1/07/97 Time : 12:00a 

ntApp 
igurable - 

, j~3 ion 35 ***************** 
te: 1/06/97 Time: 2 : 03p 

^ntApp 

to " theserver" 



c ***** * * * version 34 ***************** 
D^ter 1/06/97 Time: 1 : 2 lp 

intApp 
be suppressed. 



************** 
Time : 4 : 0 7p 



ion 3 3 * 
e : 1/04/97 
^ritApp 

rt for multiple providers 



r s ion 32 ***************** 
e.:, 1/04/97 Time: 2:48p 

totApp 

tartup splash screen: code not done, so #if def ' ed 
for now. 



s i on 30 ***************** 
e: 1/02/97 Time : 10:57a 

entApp 
BLOCK stuff . 



// JRW 9 61128 Change command-line, registry stuff to use 



8 o * 



// 
// 

// JRW 
// JRW 
// 
// 
// 
// 
// 
// 

// JRW 

// 

// 

// 

#endif 



961203 
961204 



JRW 961212 



JRW 9 61215 



extended 
Changed 
Small 
Sample' 
mostly so 
Put 

command. 1 
Moved 
CI i err 
Set Timer 
22 0 Moved 

to CI lent 
cal 1 -back 
already 
// SOURCE 



debugging 
Tb.2resl1h.old* 



tAppDlg 



prot' 



CONTROL 



?VtpAttrib class, 
rsion from 961117 to 961130. 
changed . 

* values now in configuration data, 
we can dickie with, them while testing. 
figurationWizard here, so it can be invoked from 
ine as part of our installation procedures. 

t to server at startup" to poll ling loop in 
it was too hard getting the non-Window 
functions to work, with the application class. 

ocol initialization, shut-down from Client App - cpp 
AppDlg.cpp, to fix the problem of the update 
function being called after the main dialog was 
stroyed. 
BLOCK 



connect 



// ClientApp.h : main 



header file for the CLIENTAPP application 



#ifndef CLIENTAP P H I NCLU 3ED 

# define CLIENTAPP_H_INCLU DED 



\\ #ifndef AFXWIN_H 

;! # error include 'stdafx.h 

| \ #endif 

l [ #include <ras.h> // JRftf 



# include 

# include 
^include 
# include 

# include 

# include 
#include 
# include 
^include 
#xnclude 



" resource . h" 
"SplashDlg . h ,! 
" callback . h" 
"opt ions .h" 
" idf server . h 1 
" atpsock . h" 
" socketcontrol - h 
"atpattrib - h M 
" Cont ent Con t r o 1 
<af xdisp . h> // 



// 



For command- line options, etc. 
h" // TGT 96113 0 

added by OLE Control Containment component 



CG 



// So that different 
extern CString g_Cli 



modi: 1 



entAppBui 



typedef DWORD (FAR PASCAL 
UINT uErrorValue, 
LPTSTR IpszErrorStri 
DWORD cBufSize 



) ; 



typedef DWORD (FAR PASCAl^ 
LPRASDI ALEXTENS IONS '. 
LPTSTR Ipsz Phonebook 
LPRASDIALPARAMS IpRa^D 
DWORD dwNo t i f i e rType 
LPVOID lpvNotifier, 
LPHRASCONN IphRasConiii 



) 



typedef DWORD (FAR PASCAli 
HRASCONN hrasconn 
) ; 

typedef DWORD ( FAR PAS C A! 
HRASCONN hrasconn, 
LPRASCONNSTATUS lpra 
) ; 



typede f DWORD ( FAR PASCA L. 
LPRASCONN Iprasconn , 
LPDWORD lpcb, 
LPDWORD lpcConnectic 



) ; 



typedef DWORD (FAR PASCAL 
LPTSTR reserved, 
LPTSTR lp s z Phonebook 
LPRASENTRYNAME lpra 
LPDWORD lpcb. 



before including this file for PCH 



// main symbols 



Les will report the same build date 
.IdDate; 



* PRasGet Errors tring) ( 
/ error to get string for 

// buffer to hold error string 
/ size, in characters, of buffer 



PRasDial) ( 

pRasDialExtensions, // pointer to function extensions data 

// pointer to full path and filename of phonebook file 
ialParams, // pointer to calling parameters data 

/ / specifies type of RasDial event handler 
V specifies a handler for RasDial events 

// pointer to variable to receive connection handle 



PRasHangUp) ( 
/ / handle to the RAS connection to hang up 



PRasGetConnectStatus ) ( 
// handle to RAS connection of interest 
3connstatus // buffer to receive status data 



* PRasEnumConnect ions ) ( 

// buffer to receive connections data 
//size in bytes of buffer 

// number of connections written to buffer 



PRasEnumEntries) ( 
/ / reserved, must^be NULL 

// pointer to full path and filename of phonebook file 
entryname, // buffer to receive phonebook entries 
//size in bytes of buffer 



LPDWORD lpcEntri 
) ; 

//////////////////// 

// CClient: 

// See Client. cpp f 

// 

class CClient : publ 



{ 

public : 

CClient ( ) ; 
-CClient { ) ; // De 

/ / Oveirrides 
// ClassWizard g 
/ / { {AFX_VIRTUAL ( CCfl 

public : 

virtual BOOL In 
virtual BOOL. On! 
virtual BOOL 
/ / } } AFX^VIRTUAL 



// number of entries written to buffer 

/// /////// '///////////////////////////// V// '////// '///////// 

r the implementation of this class 
ic CWinApp 

structor . 



PrcTransl 



// Implementation 

private : 

VOID ShowHowTollie (const char 



BOOL DoCommandL 
VOID ShowRegist: 
AtpAttrib Get 
VOID DeleteRegi 



BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 



ValidBoole 
ValidRASSc 
ValidSeria 
ValidClien 
ValidSampl 
ValidSampl 
ValidRASPh 



// For splash screep 

DWORD m_dwSplashTime ; 
CSplashDlg m_sp|lash ; 



public : 

/ / Command, line / 
AtpAttrib m 
BOOL m_bSplashS 



// JRW These should 
// 



. . . or at 
void Dial 
void Undia 
BOOL Disestabl i 
HRASCONN Estab] 
BOOL 
HRASCONN m hRa; 



crated virtual function overrides 
.lent) 

tlnstance{) ; 
die (LONG ICount ) ; 

lateMessage (MSG* pMsg) ; 



msg , 



const char * BadCommandLinePart ) 



// Show usage in a message box 



ne { ) ; // Parse out command line. 

ationValuesO ; 
Fa<htoryDefault Values ( ) ; 
trationValues { ) 

:an(CString & sBoolean) ,- 
iriptName (CString & RASScr iptName ) ; 
l! (CString & serialNutnber) ; 
I- PollingPeriod (CString St sampleTime) ; 
iTime (CString & sampleTime} ; 
sCount (CString & sampleCount) ; 
DneNumber (CString & phoneNumber) ; 



rjegistry configuration parameters . . - 
figVals; 

creen; // Used to suppress splash screen. 



leas 



be in their own class? 
t not part of theApp? 
ctionAutomatically ( ) ; 
ionAutomatically ( ) ; 
shRASConnection (HRASCONN & hRa s Conn) ; 
ishRASConnection ( ) ; 
ct ive ; 

Conn; // Ras connection we are using, 



RASConne 
1 RAS Connect 



bRASAlreadyAc 



i f any . 



2 



Bui'*. 



// RAS DLL 

static H INSTANCE m_hR^sApi3 2Dll ; 

private : 

BOOL InvalidConf igurationValue (const char * name) ; 

VOID SetSerialInstallationDate(AtpAttrib & configVals, CTime & t, 
CString & textString) ; 

LationDate (AtpAttrib & configVals, CTime & t, 



VOID GetSeriallnstall 



CStriig & textString) ; 



// { {AFXJMSG (CClient ) 

// NOTE - the ClassWizafrd will add and remove member functions here. 
// DO NOT EDIT what you see in these blocks of generated code 

// } }AFX_MSG 
DECLARE_MES SAGE_MAP ( ) ; 



extern BOOL Get RAS Connect 



ion Information ( 



HINSTANCE hRdisApi 3 2Dl 1 , 
RAS CONN STATE * lpRasConnState, 
DWORD & iRASConnectionCount f 
RAS CONNS TATUS & RasConnStatus) ; 



extern void RunConf igurat ionWi zard ( ) 



extern void ComputeConfi 
extern CClient theApp; 
extern const char * g__Cl 



// handle of ras dll 
// State passed in while dialing 
// Returns count of connecitons 
// Returns status 



gurat ionResults ( ) ; 



/ / JRW anyplace we use this,, we should probably 
// look into making the code more modular! 
ent_Registration_Key; 



// For debugging and tes 
extern BOOL g_bSimulat 
extern BOOL g_bSampleDi 



ting only ... 

eljransfer; // Simulate transfer of data for dialog 

s|abled; // Disable "network sample" measurements 

// for our "politeness" on busy networks. 



#ifdef SOURCE_CONTROL__BLOCK 
Project Name; E-PS Client /Server program 
E-PS Inc. 

Copyright 1996, 1997. ii.ll Rights Reserved. 
SUBSYSTEM: ClientApp customer client program 
$Workfile: ClientApp. h 
$Author: Tding $ 
$Revision: 3 7 $ 
$Date : 2/03/97 10:27a 
$Modtime: 2/02/97 4:30b $ 

$Hi story; ClientApp.h $ 



* Updated in $/atp/Cli 

* Added m__hRasApi 32D11 



* * ************** * 

* User: Jrward 

* Updated in $/atp/Cll 



* ***************** Version 37 ***************** 

* User: Tding Date: 2/03/97 Time: 10:27a 

LentApp 

as a static handle to the RAS library. 



ersion 36 ***************** 
4ate: 1/31/97 Time: 2:48p 

entApp 



8 9 . 



Global check- in. 



***************** y e (-gl c>Tl 3 5 

User: Jrward Date; 1/31/97 

Updated in $/atp/CliemtApp 
Stubbed out some nets 



***************** 
Time : 10 : 47a 



tat asserts for now. 



***************** Version 34 ***************** 
User: Jrward Date: 1/30/97 Time: l:48p 

Updated in $/atp/ClienfcApp 

Check everything I have in, so Theo can get it. 

***************** Version 33 ***************** 
User: Jrward Date: 1/2 9/97 Time: 5 : 3 Op 

Updated in $/atp/ClientApp 
End-Of-Day checkin festival . 



***************** 

User: Jrward 
Updated in $/atp/Cli<fentApp 



Afternoon check -in 
SraartLoad fixes. 



Version 32 ***************** 
D^te: 1/28/97 Time: l:llp 



mostly fixes to installation from all the 



ersion 31 



Date: 1/27/97 



***************** \/ 
User: Jrward 
Updated in $/atp/Cli]sntApp 
Smart Load sort of working 



***************ll 

User: Jrward 
Updated in $/atp/Cli 
Smart load stuff now 



***************** 



Time : 5 : lip 



Version 30 ***************** 
Date: 1/27/97 Time: 10:29a 

entApp 

in separate sources Smart Load . cpp , SmartLoad.h 



***************** 
User: Jrward 
Updated in $/atp/Cli 



ersion 29 ***************** 
rjate: 1/24/97 Time: 4:58p 

entApp 

New .epsclient Smart! Load file handling: Just waiting on Theo's stuff, 
which he hasn't tested yet. 



********* * * * * * * * * Vers ion 2 8 * * * * * * * * * *"* ****** 



User: Jrward 
Updated in $/atp/Cl 



Date: 1/23/97 
entApp 



Daily check-in: looks like I have the SmartLoad stuff working,, I just 



* need the new Client 
* 

* ***************** 

* User: Jrward 

* Updated in $/atp/Cl 

* SmartLoad request f 

* LoadRequestDir dire 

* files yet . 



Time: 4:50p 



side protocol code from Theo. 

Version 27 ***************** 
Date : 1/23/97 Time: 3 : 04p 

i entApp 

lies handled at the file level .{ * - epsclient in 
ctory) , but no processing of the innards of the 



***************** 
User: Jrward 
Updated in $/atp/C3 
Added /LoadRequest 



C* *********** *^ 



Version 26 ***************** 
Date: 1/23/97 Time: 12:25p 

i entApp -, 

switch on clientapp.exe, so can use it as "helper" 
app with Web browsers for SmartLoad. Actual SmartLoad processing not 
done yet . 



Version 2 5 



t**************** 



9 o 



User: Jrward Da 
Updated in $/atp/Clie: 
End of the day check 



***************** Ve 
User- : Jrward Da 
Updated in $/atp/CliefitApp 
End-of - the-day checkip.. 



e: 1/15/97 Time: 5 : 15p 

tApp 
:Ln festival . 

■g ion 24 ***************** 
e: 1/13/97 Time: 5 : 02p 



***************** ve 
User: Jrward Da 
Updated in $/atp/Clien 
Cannot get ODBC calls 
Server I SAP I . DLL : work 
throw when opening th^ 
a service ! 



:cs ion 2 3 ***************** 
e: 1/13/97 Time: 5:00p 

LtApp 

in fake JRDemo.exe to work from the 

fine when running www server from debugger, but 
CustomerDB . mdb database when running normally as 



***************** -y e 

User : Jrward Dafc 
Updated in $/atp/Cli 
Smal 1 change in " Se 
do. 



entApp 

tu]) M dialog for setting IDF directory: still more to 



***************** Ve 
User : Jrward Dat 
Updated in $/atp/Cli 
More stuff hooked up 
d i re c t ory select 1' on . 



si on 21 ***************** 
1/10/97 Time: 9:42a 

etLtApp 

n Setup dialog, but still need to work on IDF 



***************** Ve 

User : Jrward Dat 
Updated in $/atp/Cliej 
Splash screen can now 



***************** Ve ' - 
User : Jrward Dat: 
Updated in $ /atp/Cl ieiji 
Added SOURCE_CONTROL 

******** * * ******* v< 



User: Jrward Dat 
Updated in $/atp/Cli 



***************** -y e 

User : Jrward Da 
Updated in $/atp/Cli 



t***********^ 



* User: 

* Updat 

* Test 
// JRW 961128 
// 

// 

// JRW 961212 
// 

// JRW 961215 

// 

// 

// JRW 961220 



* ve 
Jrward Dat; 
d in $/atp/Cli 
of SOURCE CONTROi 



rt 
RunConf 



Changed 
f rom the 
HACKasse 
Put 

command 
Moved "< 
Clien 
SetTimer 
Moved prcb 



si on 22 ***************** 
e: 1/13/97 Time: 9:36a 



s ion 20 ***************** 
e: 1/06/97 Time: l:21p 

ttApp 

be suppressed * 



si on 17 ***************** 
1/02/97 Time : 10:57a 

tApp 
BLOCK stuff . 



ion 16 ***************** 
e: 1/02/97 Time: 10:26a 



entApp 



si on 15 ***************** 
e: 1/02/97 Time: 10:25a 

eittApp 



jL on 13 ***************** 
e: 1/02/97 Time: 10:16a 

erttApp 



_BLOCK 

o use AtpAttrib to hold the configuration values 
command line / registry, 
moved to utility. h 

igur at i onWi zard here, so it can be invoked from 
ine as part Of our installation procedures . 
nnect to server at startup" to poll 1 ing loop in 
tAp^Dlg : it was too hard getting the non-Window 

functions to work with the application class . 
tocol initialization, shut-down from Clien tApp . cpp 



9 1 



// to ClientAppDlg.cpp, to fix the problem of the update 

// call-back function being called after .the main dialog 

// already destroyed: 

// m^idfserver, m_atpserver, m_contentserver 

#endif // SOURCE_CONTROL_BLOCK 

#endif // CLIENTAP P H I NCLUDED 



6 



92 * 



// ClientAppDlg . cpp : implementation file 



#include " stdafx . h" 

# include <assert .h> // JRW for debugging . 

# include "utility . h" 
# include "atpattrib .h" 
#include "atpexcept .h" 

# include "ClientApp . h" 

# include "ClientAppDlg . h n 

^include "SmartLoad.h" 

ft include "atpsock.h" // for AtpState. 

#include "ProcessMonitor.h" // for the UGLY stuff 



# include 

# include 

# include 
# include 



'Conf igureDlg . h" 
'DbgConf igDlg . h" 
'EasterEggDlg . h" 
"TextDisplayDlg .h" 



extern RASCONNSTATE g_DialState; 



// JRW Ungly hack. 



ttifdef DEBUG 

#define new DEBUG NEW 

ttundef THIS FILE „ 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CAboutDlg dialog used for App About 

class CAboutDlg : public CDialog 

{ 

publ ic : 

CAboutDlg ( ) / 

/ / Dialog Data 

//{ {AFX_D AT A (CAboutDlg) 

enum { IDD = IDD_ABOUTBOX } ; 

CStatic m_ICON_IMAGE; 

/ / } } AFX DATA 

// ClassWizard generated virtual function overrides 
/ / { { AFX_V I RTUAL ( C About Dig) 
protected : 

virtual VOID DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

/ / } } AFX_VI RTUAL 

/ / Implementation 
protected: 

/■/ { { AFX_MSG (CAboutDlg) 

afx_msg VOID OnRButtonDblClk (UINT nFlags, CPoint point) ; 

//} }AFX_MSG 
DECLARE MESSAGE__MAP ( ) 

}; 

CAboutDlg: : CAboutDlg ( ) : CDialog (CAboutDlg: : IDD) 
{ 



1 



/ / { {AFX_DATA INIT (CAboutDlg) 

; ; / / } } AFX DATA INIT 

! : } 

• jvoiD CAboutDlg : :DoDataExchange (CDataExchange* pDX) 

; :{ 

CDialog: :DoDataExchange (pDX) ; 
' t ' ; // { { AFX DATA_MAP (CAboutDlg) 

5 j DDX_Control(pDX, IDC_ICON_IMAGE, m_ICON_IMAGE) ; 

: ! / / } } A FX D AT A__MA P - " 

0 

';// Check for a double- right -click on the little "company icon" image in 
17/ the upper- left of the dialog . 

, IvoiD CAboutDlg :: OnRBut t onDblClk (UINT nFlags, CPoint point) 

, ;/ / Get rect for our secret icon, and convert to client co-ordinates for the 
f ,// main dialog, to match the mouse point location: 

] CRect iconRect; 

*1 m_ICON_IMAGE . GetWindowRect (&iconRect) ; // Returns screen coordinates 

\l ScreenToClient (kiconRect ) ; // Convert to dialog's client co-ordinates 

f ' 

; !// Now that the mouse point and icon rect are in the same co-ordinate system, 

'\// check whether the user clicked in the icon: 

:i BOOL blnside = iconRect .PtlnRect (point) ; 

' i 

p// If they clicked inside, and they are holding down both the 
« ! // control and the shift keys, bring up our secret feature . . . 

<" if (blnside (nFlags & MK_CONTROL ) (nFlags & MK SHIFT) ) 

w { 

H CEasterEggDlg dlgEasterEgg ; 

[ ! dlgEasterEgg . DoModal ( ) ; 

Si > . 

! // "Now we return to your previously scheduled programming, in progress ..." 
j! CDialog : : OnRButtonDblClk (nFlags , point); 



j j BEGIN MESSAGE MAP (CAboutDlg, CDialog) 

\ / / { { AFX_MSG MAP (CAboutDlg) 

i ON WM RBUTTONDBLCLK ( ) 

I / /}} AFX_MSG__MAP 
I END MESSAGE MAP ( ) ; 

| ///////////////////////////////////////////////////////////////////////////// 
j // CClientAppDlg dialog 

i I ". 

.' : #define MYWM NO T I F Y X CON (WM_USER+10 0) 

j 

| // MyTaskBarAddlcon - adds an icon to the taskbar notification area. 

j // Returns TRUE if successful or FALSE otherwise. 

j // hwnd - handle of the window to receive callback messages 

j // uID - identifier of the icon 

j // hicon - handle of the icon to add 

\ // IpszTip - tooltip text 



;|BOOL MyTaskBarAddlcon (HWND hwnd, UINT uID, HICON hicon, LPSTR IpszTip) 

i:( 

E * BOOL res ; 

! NOTIFYICONDATA tnid; 

t ; tnid.cbSize = sizeof (NOTIFYICONDATA) ; 

j l tnid . hWnd = hwnd; 

! ; tnid . uID = uID ; 

;i tnid.uFlags = NI F MESSAGE | NIF^ICON | NIF_TIP; 

tnid . uCallbackMessage = MYWM NOTIFYICON ; 

; tnid. hicon = hicon; 

] ( if (IpszTip) 

lstrcpyn (tnid. szTip, IpszTip, sizeof (tnid.szTip) ) ; 

: >' else 

' | tnid . szTip [0] = 1 \0 * ; 

5 ) 

\ res = Shell Not if yl con (NIM_ADD, &tnid) ; 

> ! if (hicon) 

,[ Destroylcon (hicon) ; 

\ \ 

I ; return res 

;s } 

MyTaskBarDeletelcon - deletes an icon from the taskbar 
;<// notification area. 

Returns TRUE if successful or FALSE otherwise. 
'.',// hwnd - handle of "the window that added the icon 

;// uID - identifier of the icon to delete 
; ; BOOL MyTaskBarDeletelcon (HWND hwnd, UINT uID) 

;; { 

BOOL res ; 
; I NOT I FY I CONDATA tnid; 

i tnid.cbSize = sizeof (NOTIFYICONDATA) ; 

\ ; tnid . hWnd = hwnd; 

l\ tnid.uID = uID; 

res = Shell Notifylcon (NIM DELETE , &tnid) ; 

return res ; 

!]} 

| // Design note : 

;// Some of these loops could be moved to independent threads, 

[// but we haven't done so right now, because 

\ / / 1) We might have to make them thread-safe, 
j j / / 2 ) We might have to make some of the member-data objects 

| // they reference thread-safe . 

;}// 3) These loops repeat (at most) every few minutes, which doesn't 
--;// sound much like the stuff that time-critical threads are made of. 

f 

i // Event ID's for OnTimer function . . . 

j #def ine EVENT PROGRESS 101 // progress-bar update 

j#define EVENT POLL SERVER 102 // Poll the server ... 

|#define EVENT__LOAD_REQUE ST 103 // Check LoadRequest directory 



} #def ine INTERVAL INITIAL 



(2000L) // Initial timer periods are short, 
// so that first updates are quick, 



// but after the dialog is initialized 



ilvOID CClientAppDlg: : Ini t ia 1 izeLoopTimers ( ) 



{ 

// Set up our repeating functions 



that run off of timers 



// Progress bar: 

// JRW Set up a timer, just to catch (eventually) any changes m state 

// the call-back functions may skip due to quirks in the evolving transfer 

/ / code ... 

// Note: first timer period is short ... 

m_IDTimerProgress - SetTimer (EVENT PROGRESS , INTERVAL INITIAL , NULL) ; 

HACKassert ("Could not create progress bar t inner" , m_IDTimer Progress 1= 0) ; 

// Set up our polling loop for our periodic cl ient - ini t iated connections 
// with the server ... 

int pollTime - AtpAtt rib : : Parselnt (m_conf igVals [ "ClientPol lingPeriod" 3 ) ; 
if (pollTime > 0) 
{ 

// Note: first timer period is short ... . 

m_IDTimerPollServer - SetTimer (EVENT POLL SERVER, INTERVAL — INITIAL, NULL) ; 

HACKassert ("Could not create polling timer" , m_IDT ime r Poll Server != 0); 

} 

LoopClientPollServer () ; // Check in with the designated server ... (TGT) 

int reqTime = AtpAttrib :: Parselnt (m_conf igVal s [" LoadRequestPeriod" 3 ) ; 
if (reqTime > 0) 

m_IDTimerLoadRequest=SetTimer ( EVENT LOAD REQUEST , INTERVAL — INITIAL, NULL) 

HACKassert ( "Could not create request timer" r m_IDTimerLoadRequest 1= 0); 
} 



H VOID CClientAppDlg: : Ki 1 lLoopTimers ( ) 
! | if ( ! KillTimer (m_IDTimerProgress ) ) 

h HACKassert ( "Could not kill progress bar timer " r FALSE) ; 

!!--.}" 

i : if ( ! KillTimer (m_IDTimer Pol 1 Server ) ) 

H. HACKassert ( "Cannot kill polling timer" r FALSE) ; 

il ' } 

M if { ! KillTimer (m_IDTimerLoadRequest) ) 

1! { 

ij HACKassert ( "Cannot kill load request timer" , FALSE) ; 

H ) 

H } 

I! CClientAppDlg: : CClientAppDlg (AtpAttrib & configVals, CWnd* pParent /*=NULL*/> 
U *• : CDialog (CClientAppDlg: : IDD r pParent), 
H m_conf igVals (configVals) , 

i| m_bStartHidden (AtpAttrib: : ParseBool (m_conf igVals ["StartHidden J ) / , 

■\ \ ' m bSecretDebugMode (FALSE) 



{ 



/ / { { AFX DATA INIT (CClientAppDlg) 
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//} } AFX DATA INIT 

/ / Note that Load I con does not require a subsequent Destroy Icon in Win32 
m_hIconl6 = Af xGetApp ( ) - >LoadIcon ( IDI_DOCICON32 ) ; 
m _ hIcon32 = AfxGetApp ( ) ->LoadIcon(IDI DOCICON32) ; 



} 



VOID CClientAppDlg: :DoDataExchange (CDataExchange* pDX) 

CDialog: :DoDataExchange (pDX) ; 

/ / { { AFX DATA_MAP (CClientAppDlg) 

DDX_Control(pDX, IDC_PROGRESS_LABEL10 , m_ProgressLabellO) ; 

DDX_Control (pDX, IDC_SECRET_DEBUG_TEXT_TOP , m SECRET DEBUG TEXT TOP ) ; 

DDX „Control (pDX, IDC SECRET DEBUG_TEXT BOTTOM , m_SECRET_DEBUG TEXT BOTTOM ) 

DDX_Control(pDX, IDC_ICON_IMAGE, m_ICON_IMAGE) ; 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX^Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX, 
DDX_Control (pDX , 
DDX_Control (pDX, 
/ / } } A F X DATA MA P 

} 



IDC_ 


PROGRESS 


LAB EL 9 , 


m_ 


ProgressLabel9) ; 


IDC_ 


PROGRESS^ 


_LABEL8 , 


m 


_ProgressLabel8 ) ; 


IDC_ 


PROGRESS^ 


LAB EL 7 , 


m 


_ProgressLabel7) ; 


IDC_ 


PROGRESS^ 


LAB EL 6 , 


m 


ProgressLabele) / 


IDC_ 


PROGRESS^ 


LABELS , 


m 


_ProgressLabel5) 


IDC_ 


PROGRESS_ 


LAB EL 4 , 


m_ 


_ProgressLabel4) ; 


IDC_ 


_PROGRESS_ 


_LABEL3 , 


m_ 


_ProgressLabel3 ) ; 


IDC_ 


PROGRESS^ 


LABEL2 , 


m_ 


ProgressLabel2 ) ; 


IDC_ 


_PROGRESS_ 


LAB ELI , 


m_ 


ProgressLabell) ; 


IDC_ 


PROGRESS^ 


BAR , 


m_ 


PROGRESS BAR) ; 



BEGIN_MESSAGE MAP (CClientAppDlg, CDialog) 

// { { AFX_MSG_MAP (CClientAppDlg) 
ON_WM_SYSCOMMAND ( ) 

ON WM_D EST RO Y ( ) 

ON__WM_PAINT ( ) 

ON WM__QUERYDRAGI CON ( ) 

ON BN CLICKED ( IDC HIDE , OnHide) 

ON__WM_TIMER ( ) 

ON_WM_CLOSE ( ) 

ON BN CLICKED (ID_CONFIGURE, OnConfigure) 

ON WM RBUTTONDBLCLK ( ) 

ON_BN__CLICKED ( IDC_BUT.TON_ABOUT , OnBut tonAJbout ) 
ON_BN CLICKED ( I DC BUTTON_HEL P , OnBut t onHelp ) 

ON_BN_CLICKED(IDC_BUTTON_CLIENT_POLL_NOW f OnButtonClientPollServerNow) 
ON BN CLICKED ( I D DEBUGGER , OnDebugger) 

ON BN__CLICKED (ID INTERRUPT TRANSFER, Onlnterrupt Transfer ) 

ON BN CLICKED (ID PAUSE TRANSFER, OnPauseTransfer) 

ON BN CLICKED ( IDC_BUTTON_SETUP , OnBut tonSe tup ) 

ON MESSAGE (MYWM_NOTI FYICON , OnNot if ylcon) 

ON BN CLICKED ( ID CHECK_SMARTLOAD , OnCheckSraart load) 

// } } A FX M S G MA P 

E ND M E S SAGE MAP ( ) / 



///////////////////////////////////////////////////////////////////////////// 
// CClientAppDlg message handlers 

BOOL CClientAppDlg: : OnlnitDialog ( ) 

{';.'■■■■ 

CDialog: : OnlnitDialog { ) ; 

MyTaskBarAddlcon (m_hWnd, IDI_DOCICON16, m_hIconl6, "Atp Client"); 
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// Add. "About. . . " menu item to system menu. 



#ifdef STUBBED OUT 

// IDM__ABOUTBOX must be in the system command range. 

ASSERT ( ( I DM ABOUTBOX & OxFFFO) == IDM_ABOUTBOX) ; 

ASSERT ( IDM_ABOUTBOX < OxFOOO) / 

CMenu* pSysMenu - GetSystemMenu (FALSE) ; 
CString strAboutMenu; 

strAboutMenu - LoadString { IDS_ABOUTBOX) ; 
if (J strAboutMenu . IsEmpty ( ) ) 
{ 

pSysMenu- >AppendMenu (MF SEPARATOR) ; 

pSysMenu- >AppendMenu (MF STRING, IDM__ABOUTBOX, strAboutMenu); 

} 

#endif 

// Set the icon for this dialog. The framework does this automatically 
// when the application's main window is not a dialog 
Setlcon (m_hIcon3 2 , ' TRUE) ; // Set big icon 

Setlcon (m_hIconl6 , FALSE),- // Set small icon 

// TODO: Add extra initialization here 

Initial! zeProtocolStuf f { ) ; v 

InitializeLoopTimers () ; 
return TRUE ; // return TRUE unless you set the focus to a control 

} 

VOID CClientAppDlg : : OnSysCommand (UINT nID, LPARAM iParam) 
{ 

if ( (nID & OxFFFO) == IDM_ABOUTBOX ) 
{ 

CAboutDlg dig About ; 
dlgAbout . DoModal < ) ; 

} 

else 
{ 

CDialog: : OnSysCommand (nID, IParam) / 

} 

} 

VOID CClientAppDlg: .-OnDestroyO 

{ 

// JRW Kill the timers ... 
KillLoopTimers {) ; 

MyTaskBarDeletelcon (m_hWnd, IDI_JDOCICON16 ) ; 

WinHelp{OL, HELP QUIT) ; 

CDialog: : OnDestroyO ; 

} 

// If you add a minimize button to your dialog, you will need the code below 
// to draw the icon. For MFC applications using the document /view model, 
// this is automatically done for you by the framework. 

VOID CClientAppDlg: :OnPaint () 
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if ( I s Iconic ( } ) 
{ 

CPaintDC dc(this) ; // device context for painting 

SendMessage (WM ICONERASEBKGND, (WPARAM) dc . GetSaf eHdc ( ) , 0); 

// Center icon in client rectangle 

int cxlcon = GetSys temMetrics (SM_CXICON) ; 

int cylcon = GetSystemMetrics ( SM_CYICON) ; 

CRect rect ; 

GetClientRect (&rect) ; 

int x = (rect.WidthO - cxlcon +1) / 2; 
int y = (rect . Height ( ) - cylcon + 1) / 2; 

// Draw the icon 

dc . Drawl con (x, y , m__hIcon3 2 ) ; 

} 

else 
{ 

SetSecretDebugDialogO ; // Set the secret debug mode. 

if (m_bS tart Hidden) // Hack: real fix is to have a non-Modal dialog. 

{ // . . . this hack is to DoModal ( ) showing the window 

m__bS t a r-t Hidden = FALSE; 
ShowWindow(SW__HIDE) ; 
} 

CDialog: :OnPaint() ; 

} 

} 

// The system calls this to obtain the cursor to display while the user drags 
/ / the minimized window . 

HCURSOR CClientAppDlg : : OnQueryDraglcon ( } 
{ 

return (HCURSOR) m_hIconl6 ; 

} 

af x _msg LRESULT CCl lent AppDlg :: OnNoti fylcon (WPARAM wParam, LP ARAM lParam) 
{ 

UINT uID = (UINT ) w Par am ; 

UINT uMouseMsg = (UINT) lParam; 

if ( (uMouseMsg == WM LBUTTONDOWN ) | } (uMouseMsg == WM RBUTTONDOWN ) ) 

{ 

ShowWindow(SW_SHOW) ; 

LoopUpdateProgressDialogO ; // Initialize progress bar for starters. 
} 

return 0 ; 

} 

VOID CClientAppDlg :: OnHide ( ) 
{ 

ShowWindow (SW_HIDE) ; 

} 



// Routine to get progress data . . - 

7 
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typedef struct tagPROGRESS INFO 

{ 

CString threadPriority; 
DWORD ethernetCount; 
CString ethernetBreakdov/n ; 
DWORD averageBthernetLoad ; 
DWORD currentEthernetLoad; 
DWORD protocol Count ; 
CString- p ro tocol Comp arison; 
DWORD averageProtocolLoad; 
DWORD current Protocol Load ; 

CString dialState; // Return as a string for now . - . 

long fileAmount; 

long fileSize; 

CString xferState ; 

CString fileName; 

} PROGRESS^INFO; 

// Macro-hack to make the code more readable . . . 

#define CHECK RASCS STATE (ref state) \ 

if ( rasconnstat e == (ref state)) \ 
{ \ 

plnfo- >diad. State - #ref state,- \ 
} 

//JR: Basically, I need to t>y pass GetRASConnect ionlnf ormat ion 
//when Rasapi32.dll is not available. 

VOID CClientAppDlg : : Get ProgressValues (PVOID pProgressInfo) 
{ 

HACKassert ("Bad pProgressInfo pointer passed", pProgressInfo 1= NULL) 

PROGRESS_INFO * plnfo = C PROGRESS_INFO *} pProgressInf O; 
RAS CONNSTATE rasconnstate; 

// Get Connection status . ... 

DWORD iRASConnectionCount ; // ==0 if no RAS connection running. 
RASCONNSTATUS RasConnStatus; 

//Tim: If the RAS is not installed, m_hRasApi3 2Dll is null and 
//the next section is skipped, 
if (theApp .m_hRasApi3 2Dll != NULL) 
{ 

if {! GetRASConnect ionlnf ormat ion 

( theApp . m__hRa s Ap i 3 2 D 1 1 , &g_DialState, iRASConnectionCount 
{ 

HACKassert ( "XXX Cannot get connection information " , FALSE) ; 
} . 

rasconnstate = RasConnStatus .rasconnstate; 

// Get string for connection state ... 

CHECK_RASCS_STATE (RASCS_OpenPort) 

else CHECK_RASCS_STATE (RASCS PortOpened) 

else CHECK RASCS_STATE ( RASCS_ConnectDevi ce ) 

else CHECK_RASCS_ STATE ( RASCS_DeviceConnec t ed ) 
else C HE C K_RAS CS_S TAT E (RASCS_AllDevicesConnected) 
else CHECK RASCS STATE (RASCS Authenticate) 



loo 



else 






e se 


CHECK 


RASCS 


else 






else 
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else 


^_rirLl— In. 


KAoLc 


else 


CHECK. 


RASCS 


else 
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else 
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KAbL t> 


else 
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else 


CHECK 


RASCS 


else 


CHECK_ 


_RASCS_ 


else 


CHECK_ 


RASCS 


else 


CHECK_ 


_RASCS_ 


else 


CHECK_ 


RASCS 


else 


CHECK_ 


RASCS 


else 


CHECK_ 


_RASCS_ 


else 


CHECK_ 


RASCS 


else 


CHECK_ 


RASCS 


else 


CHECK__ 


RASCS_ 


else 


CHECK_ 


RASCS 


else 


CHECK 


RASCS 



else { 

CSt ring msg ; 

msg . Format ( "Unknown RASCS state: %ld" , long (rasconnstate) ) 
HACKassert (rasgJALSE) ; 
} 

} 

else 

{ //For the case when no RAS is instal led. . 

plnf o - >threadPriority - __T ( " " ) ; 

plnfo- >e the met Count - 0; 

plnf o- >ethernetBreakdown = _T ( " " ) ; 

plnfo- >averageEthernetLoad = 0; 

pInfo->currentEthernetLoad - 0; 

plnfo - >protocol Count = 0; 

plnfo- >protocolCompari son = _T ( " " ) ; 

plnf o- >averageProtocolLoad = 0; 

plnfo- > current Protocol Load = 0 ; 

plnf o->dialState = _T ( " M ) ; 

plnfo- > f i 1 eAmount = 0 ; 

plnfo- >f ileSize = 0 ; 

plnf o- >xf erState = _T ( " " ) ; 

plnfo- >f ileName = _T < " " ) ;. 

} 

// XXX Should be accessed with functions ... 
i f (m_bSecretDebugMode ) 
{ 

if ( UGLYThreadPriority==THREAD PRIORITY HIGHEST ) 

plnf o- >threadPriority= "HIGHEST" ; 
else if ( UGLYThreadPriority==THREAD PRIORITY ABOVE NORMAL ) 

plnfo- > threadPriori ty= "ABOVE NORMAL" ; 

else if ( UGLYThreadPriority==THREAD PRIORI TY NORMAL ) 

plnfo - > threadPr ior ity= " NORMAL " ; 
else if ( UGLYThreadPr ior i t y= =THREAD PRIORITY BELOW NORMAL ) 

plnf o->threadPriority= " BELOW__NORMAL " ; 
else if ( UGLYThreadPr ior i ty = = THREAD_PRIORI TY_LOWEST ) 

plnf o- >threadPriority= " LOWEST " ; 
else if ( UGLYThreadPr ior ity==THREAD PRIORI TY_IDLE ) 

plnfo- > threadPr ior ity= " IDLE " ; 
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else { 

HACKassert ( "Invalid thread priority computed! " , FALSE) ; 

pInfo->threadPriority = »<internal error >" ; 

} 

plnf o- >ethernetCount = UGLYEthernetCount ; 

plnf o - >e t he rnet Breakdown. Format ( "%101u r %10lu" , 

UGLYEthernetReceiveCount , 

UGLYEthernet SendCount ) ; 
P Info->averageEthernetLoad = UGLYave r age Et heme t Load ; 
plnf o- >currentEthernetLoad = UGLYcurrentEt hernetLoad ; 
P Info->protocolCount = UGLYProtocol Count ; 

UGLYMutex . Lock ( ) ; 

plnf O" >protocolComparison = UGLYProtocolCompanson; 
UGLYMutex . Unlock ( ) ; 

pInfo->averageProtocolLoad = UGLYave rage Pro t oco 1 Load ; 

P Info->currentProtocolLoad = UGLYcurrent ProtocolLoad ; 

} 

#ifdef STUBBED OUT 

static long f akeFileAmount = 0; 
static long fakeFileSize = 7000000L; 

if (f akeFileAmount > = fakeFileSize) 

( 

fileAmount = f ileSize = 0 ; 

f akeFileAmount = 0; // For next time, 

return ; 

f akeFileAmount (fakeFileSize / 12) ; 

if (f akeFileAmount > fakeFileSize) 
f akeFileAmount = fakeFileSize; 
fileAmount -- f akeFi le Amount ; 
fileSize = fakeFileSize; 

xferState - "defrauded"; 
filename = "pudn'n tane" ; 

#endif 

plnf o->f ileAmount = plnf o - >f i leSi ze = 0; 
plnf o~>f ileName = "<no f ile>" ; 
pInfo->xferState = »< unknown: error?>" ; 

assert (("Bad internal pointer m_atpserver",m_atpserver 1= NULL)); 

const CPtrArray * p„conns = m_atpserver- >GetAllConnect ionStates ( ) ; 
assert (("Bad internal pointer p__conns » , p_conns ! = NULL) } ; 

int connectionCount = p_conns->GetSize() ; 

if (connectionCount == 0) 

pInfo->xf erState = "No connections in progress"; 

plnf o->f ileAmount = plnf o- >f ileSi ze =0; 

plnf o- >f ileName \ '= " " ; 

return ; 

} 

""// Multiple connections are a by-product of sockets not being really closed 
//until TCP/IP gets around to closing them asynchronously. 

int connectionldx = connectionCount -1; 
AtpConnection : : AtpState atpState = 
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( (AtpConnection*) (p_conns->GetAt ( connect ionldx) ) ) ->state; 
if ( atpSt at e = = AtpConnec t ion : : CONNECTING) plnf o- >xf erState= " CONNECTING " 

else if (atpState==AtpConnection: :WAITING) plnf o->xferState="WAITING" ; 

else if ( atpState = =AtpConnection : : RECEIVING) plnf o- >xf erState= "RECEIVING" ; 
else if (atpState==AtpConnection: :CLOSING) plnf o- >xferState= " CLOSING" ; 

else if (atpState = =AtpConnection: : PAUSED) plnf o- >xf erState= " PAUSED" ; 

if ( (atpState AtpConnection :: RECEIVING) || 

(atpState == AtpConnection: : PAUSED) ) 
{ 

IDFile * idf = ( (AtpConnection*) (p_conns->GetAt (connect ionldx) ) ) - >idf ; 

plnf o- > f i 1 e Amount = idf - >GetLoadedSi ze ( ) ; 

plnf o- >f ileSize = idf ->GetSize {) ; 

plnf o->f ileName = idf - >GetFileName ( ) ; 

} 



/ / HACK: Try to reduce the flicker in the things we display 
/ / in the dialog . - . 

CString g_tempUpdateWindowText ; 

VOID UpdateWindowText (CWnd & window, const CString & newText ) 
{ 

if (window . m^hWnd = = NULL) // HACK: Callback to update window called 

return ; // after window destroyed : not a good test , 

// the threads are asynchronous . 

window . GetWindowText (g_tempUpdateWindowText ) ; 

if (g_tempUpdateWindowText != newText) 
window. SetWindowText (newText) ; 

} 



// Update progress-bar dialog ... 

VOID CClientAppDlg: : LoopUpdateProgressDialog ( ) 

{ 

// TGT : do not update unless the window has been initialized 

if (m_hWnd == NULL) // Theo, I still think this might be the 

return; // wrong way to do this' 

PROGRESS_INFO State; 

GetProgressValues ( (PVOID) (&State) ) ; 
if (State .fileSize < 0) 
{ 

CString msg; 

msg . Format { "State . fileSize for transfer bad: %ld M , long (State .fileSize) ) 
HACKassert (msg, State . fi leSize >= 0 ) ; 
} 

if (State . fileAmount < 0) 
{ 

CString msg; 

msg . Format { " State . fileAmount for transfer* bad : %ld" , 
long ( State . fileAmount ) ) ; 
HACKassert (msg , State . fileAmount >= 0); 
} 

CString progressSt ringl ( State . xferState ) ; 

CString progressS tring2 ( " " > ; 

if (State . fileSize =-0) // Nothing transfering right now. 

{ 
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m_PROGRE S S BAR . SetPos ( 0 ) ; 

elsej //; Something transferring, 

if (State . fileAmount > State . f ileSize) 
{ 

CString msg; o n 

msg . Format { " State . fileAmount not <= State. fileSize, %ld <= * Xci ' 
long (State . fileAmount) , long (State .fileSize) ) ; 
| HACKassert (msg, State . fileAmount > = 0); 

int LerCent = int (MulDiv (State . fileAmount , 100 , State . fileSize) ) ; 

m PROGRESS BAR - Set Pos (iPerCent) ; 

progressStringl += " : " + State . filename ; 
progressString2 . Format ( "Transmitted %81d of %ld 

long (State . fileAmount) , long (State . fileSize) ) ; 

UpdateWindowText (m_ProgressLabell , progressStringl) ; 
UpdateWindowText (m_ProgressLabel2 , progressString2) ; 

/// Debug display of dial state, thread priority ... 

! UpdateWindowText (m_ProgressLabel3 ; " RAS Dial state: 

f ! + State . dialState) ; 

> : UpdateWindowText (m_ProgressLabel4 , "Protocol thread priority: 

+ State . threadPriority) ; 

'I// Debug display of network measurements . - • 

; \ 
r ! 

' | CString tTemp; 

J! tTemp. Format ("Ethernet total bytes: %llld» , (long) State . ethernet Count ) 

UpdateWindowText (m_ProgressLabel5 , tTemp); 

I; tTemp. Format (" . . . Send/Receive: %s". State . ethernetBreakdown) ; 

!■ UpdateWindowText (m__ProgressLabel6 , tTemp) ; 

1 tTemp . Format (».. . most recent: %91d, average: %91d bytes/second" , 

] (long) State . currentEthernetLoad, 

H (long) State . averageEthernetLoad} ; 

|S UpdateWindowText (m_ProgressLabel7 , tTemp); 

jj tTemp. Format ("Protocol total bytes: %llld» ,. (long) State . protocolCount ) 

i I UpdateWindowText (m__Progf essLabelS , tTemp) ; 

H tTemp. Format (".. . most recent: %91d, average: %91d bytes/second" , 
\) (long) State . currentProtocolLoad, 

jj ( long) State . averageProtocolLoad) ; 

\ \ UpdateWindowText (m_ProgressLabel9 , tTemp) ; 

!| tTemp. Format (-Comparison:. %s", State . protocolComparison) ; 

!j UpdateWindowText (m_ProgressLabellO , tTemp) ;. 

i \ 

jj } ■ 

i| VOID CClientAppDlg : : LoopCheckLoadRequests ( ) 

U ^ BOOL. bKilled = KillTimer {m_IDTimerLoadRequest ) ; 
] i HACKassert ("Cannot Kill Timer on m_IDTiraerLoadRequest ", bKilled) 
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CheckAllSmartLoadRequests(m_atpserver, m_idf server, m^conf igVals ) ; ^ 
int reqTime = AtpAttrib : : Parselnt (m__conf igVals [ "LoadRequestPeriod 3) 
if ( reqTime > 0 ) 
{ 

m_IDTimerLbadRequest = 
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! j SetTimer ( EVENT__LOAD REQUEST , reqTime*100 0L f NULL) ; 

HACKassert ( "Cannot SetTimer on ra__IDTimerLoadReques t " , m_IDTimerLoadReques t != 0); 

;i } 

i VOID CClientAppDlg: :LoopClient Poll Server ( ) 

. 

"</ / Check in with the designated server . .. 

<: m_atpserver- >SetRequestTransf er (0) ; // Continue transfers. 

I; AtpAttrib providers; 

; : providers . ParseLine (m_conf igVals ["Providers"] ) ; 

! : theApp .DialRASConnectionAutomatically ( ) ; 

y m_atpserver- >PollServers (providers) ; 

!;} 

' jvOID CClientAppDlg: : OnTimer (UINT nXDEvent) 

// TODO: Add your message handler code here and/or call default 
/ CDialog: : OnTimer (nIDEvent ) ; 

i\ if (nIDEvent = = EVENT PROGRESS ) // Progress Bar. 

J BOOL bKilled - Kil iTimer (m_IDTimer Progress ) ; 

' ! HACKassert ( "Cannot Kill Timer on m_IDTimerProgress bKilled) ; 

LoopUpdateProgressDialogO ; 

I 

| 3 int updateTime = AtpAttrib :: Parselnt (m_conf igVal s [" StatusPeriod" ]) ; 

h m_IDTimer Progress = SetTimer (EVENT_PROGRESS , updateTime, NULL) ; 

i ; HACKassert ("Cannot SetTimer on mJDTimerProgress " , m_IDTimer Progress »= 0); 

:' ) . 

\\- if (nIDEvent == EVENT POLL S ERVER ) // Check schedule. 

H BOOL bKilled - Kil ITimer <m_IDTimer Poll Server) ; // No double-timer firing 

! ! HACKassert ( "Cannot Kill Timer on m_IDTimerPollServer " , bKi lied) ; 

j! LoopClientPollServer () ; //Check in with the designated server ... 

U int pollTime = AtpAttrib Parselnt (m_conf igVals [ "ClientPollingPeriod" ] ) 

\ I if (pollTime > 0) 

H < 

j \ m__IDTimer Poll Server = 

H SetTimer (EVENT POLL SERVER, pol lTime* 1 0 0 OL , NULL) ; 

H HACKassert ("Cannot SetTimer on m_IDTimerPollServer " , m_IDTimerPol iServer != 0); 

i! ) . ■ 

\\ if (nIDEvent == EVENT LOAD REQUEST ) // Check for SmartLoad requests 

jj LopCheckLoadRequestsO; // Check in with the designated server ... 



} 



! } 
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s VOID CC1 ientAppDlg :: OnClose ( ) 

^ // TODO: Add your- message handler code here and/ or call default 
! CDialog: : OnClose () ; 

\// Callback routine: called by file transfer when the state 
\// of a connection has changed. 

\// For the moment, we don't used the value passed, 

7/ we just poll to get the whole state information separately 

>// and only use this routine to tell us that we need to check something. 

!voiD CClientAppDlg: : ProcessConnect ionSt ate { const AtpConnection& conn) 

;^ //(PVOID) Scconn; // To suppress compiler warning 

< if (conn-state == AtpConnect ion :: PAUSED ) 

I LoopUpdateProgressDialogO ; // To update dialog..-.- 



: int CClientAppDlg: : DoModal () // To get state. 

I // TODO: Add your specialized code here and/or call the base class 

] return CDialog: : DoModal ( ) ; 

i } 



: VOID CClientAppDlg: : OnConf igure ( ) 

: { 

i CDbgConf igDlg dlgDbgConf ig; 

I int nResultThing = dlgDbgConf ig - DoModal () ; 

\ HACKassert ( "Dummy assert", nResultThing == nResultThing); 

; } : ; ■ 

! // Set height and width of dialog to hide/show the debugging stuff 
j // we have below the "public" part of the dialog on top . . . 

I 

! VOID CClientAppDlg: : SetSecretDebugDialog ( ) 

■it ■ " ■ 

> CRect mainRect ; 

i\' GetWindowRect (&mainRect) ; // Returns screen coordinates 

U int newHeight = mainRect .Height (); 

jj int newWidth = mainRect . Width () ; 

H . cPoint mainTopLeft = mainRect .TopLeft () ; 

if ( m_bSecr e tDebu'gMdde ) 
{ 

CRect bottomDebugRect ; 

m SECRET_DEBUG TEXT BOTTOM . GetWindowRect (SbottomDebugRect ) ; 

CPoint bottomDebugBottomRight = bottomDebugRect. BottomRightO 
newHeight - bottomDebugBottomRight - y - mainTopLeft . y + 10; 
newWidth = bottomDebugBottomRight - mainTopLeft .x + 10; 



} 

else { 

CRect topDebugRect ; 

m_SECRET DEBUG TEXT TOP . GetWindowRect (&topDebugRect) ; 

CPoint topDebugTopLeft - topDebugRect .TopLeft () j 

CPoint topDebugBottomRight = topDebugRect . BottomRight { } , 
newHeight = topDebugTopLeft .y - mainTopLef t .y - 2; 

newWidth = topDebugBottomRight .x - mainTopLef t .x + 10; 
} 

SetWindowPos ( 

NULL., // New Z order 

0 , 0 , // New position to move to 

newWidth, newHeight , 

SWP_NOZORDER | SWP_NOMOVE) ; 



// Check for; a double -right -click on the little "company icon" image in 
// the upper-left of the dialog. 

VOID CClientAppDlg : : OnRBut tonDblClk (UINT nFlags, CPoint point) 
{ 

// Get rect for our secret icon, and convert to client co-ordxnates for the 
// main dialog, to match the mouse point location: 

CRect iconRect ; 

m_ICON__IMAGE . GetWindowRect (&iconRect ) ; // Returns screen coordinates 
ScreenToCl lent ( &iconRect ) ; // Convert to dialog ' s client co-ordinates 

// Now that the mouse point and icon rect are in the same co-ordinate system, 
// check whether the user clicked in the icon: 

BOOL blnside = iconRect . PtlnRect (point > ; 

// If they clicked inside, and they are holding down both the 
// control and the shift keys, bring up our secret feature . . . 

if (blnside && (nFlags & MK CONTROL ) (nFlags & MK SHIFT ) ) 

{ 

m_bSecretDebugMode = I m_bSecretDebugMode ; 
// If in debug mode, hide the "secret" stuff in the dialog which is below 
// the progress bar ... 

SetSecretDebugDialog ( ) ; 

} 

// "Now we return to your previously scheduled programming, in progress ..." 
CDialog: OnRBut tonDblClk (nFlags , point) ; 

} 



VOID CClientAppDlg: : OnButtonAbout ( ) 
{ 

CAboutDlg dlgAbout ; 
dlgAbout . DoModal ( ) ; 

} 

VOID CClientAppDlg: : OnButtonHelp ( ) 
{ 
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Mess age Box ( "Help for this dialog is not yet implemented : \n" 
"Sorry I " , 

"Beta-Release Message " -f- g_ClientAppBuildDate, 
MB OK [ MB I CONEXCXjAMAT ION ) ; 

} 



; VOID CClientAppDlg: : OnDebugger ( } 
{ 

DebugBreak ( ) ; // Just force a break to the debugger. 

* ) 

VOID CClientAppDlg: : OnlnterruptTransf er ( ) 

:-{ 

' // This is for debugging checks only . . . 

m__atpserver- >SetRequestTransf er ( 0 ) ; // 
' m_atpserver- >Set RequestTransf er ( - 1 ) ; 

,// -1 means cut connection, don't restart. 

' ) 

VOID CClientAppDlg: : OnPauseTransf er ( ) 

:. { 

; / / This is for debugging checks only . . . 

rr._atpserver- >Set Request Transfer ( 0 ) ; // 
m_atpserver- >SetRequestTransf er (3 0 ) ,- 
// -1 means cut connection, don't restart. 



VOID CClientAppDlg: : InitializeProtocolStuf f () 

1, ( 

\\ m_atpserver - new Socket Control (m_configVals) ; // ClientSocketControl 

\\ tn__content server = new ContentControl (&m__conf igVals) ; // TGT 961130 

U m_idf server = new IDFServer (m_contentserver, &m_conf igVals) ; 

U / / JRW" : 

H // Initialize needs access to state-has - changed callback function in our dialog. 
U if ( !m__atpserver->Initialize (m_idf server , this)) 

H { 

h // NOTE: TGT says ok to continue, even though socket is gronked: 

11 // effect is just that we can't initiate communications from the server, 

\\ // because the client won't be listening on the socket . . - 

\\ // however, we can still poll, so we probably shouldn't tell the user 

\\ // to reboot yet (so says Theo) , they will reboot eventually anyway. 

\t HACKassert ( "Cannot bind to socket: you may continue anyway , . . " , FALSE ) ; 

// NOTE: We need to enforce client initiated connections in this case (TGT) 

jj } 

\ : // Start monitor thread ... 
i if ( ! StartMonitorThread (m_atpserver , m_conf igVals ) ) 

; { 

Af xMessageBox ( "Cannot start monitor thread!"); 

! } 
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Continue transfers . 
// Interrupt . 



Continue transfers. 
// Delay thirty seconds. 
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VOID CClientAppDlg : : Unlni t ial i zeProtocolS tuf f () 

{ 

m__atpserver- >CloseConnections ( ) ; // TGT 961130 

KillMonitorThread ( ) ; 

} 

CClientAppDlg: : -CClientAppDlg ( ) // Destructor. 
{ 

delete m_atpserver; 

delete m_cont ent server ; // JRW 961203 

delete m_idfserver; 

} 

VOID CClientAppDlg: : OnBut tonSetup ( ) 
{ 

CConf igureDlg dlgConf igure (m_conf igVals ) ; 

int nResultThing = dlgConf igure . DoModal { ) ; 

if (nResultThing == IDOK) 

{ // Need to re-set polling times now . , . 

KillLoopTimersO ; 
InitializeLoopTimers () ; 
} 

} 

VOID CClientAppDlg: : OnButtonCl ient Pol iServerNow ( ) 

{ 

LoopClientPollServer ( ) ; // Check in with the designated server 

} 



void CClientAppDlg: : OnCheckSmart load ( ) 

{ 

LoopCheckLoadRequests < ) ; 

} 

#ifdef SOURCE^ONTROI^BL-OCK 
Project Name: E-PS CI lent /Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: ClientApp customer client program 

$Workf ile: ClientAppDlg . cpp $ 

$Author: Tding $ 

$Revisiori: 47 $ 

$Date: 2/03/97 10:24a $ 

$Modtime: 2/03/97 10:23a $ 

$History: ClientAppDlg . cpp $ 

* ***************** Version 47 ***************** 

* User: Tding Date: 2/03/97 Time: 10:24a 

* Updated in $/atp/Cl ientApp 

* Changes made for no RAS situation. 
* 

* ***************** Version 46 ***************** 

* User: Jrward Date: 1/31/97 Time: 2:48p 
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* Updated in $/atp/ClientApp 

* Global check- in . 

* ***************** Version 45 ***************** 

* User: Jrward Date: 1/31/97 ^Time : 10:47a 

* Updated in $/atp/ClientApp 

* Stubbed out some netstat asserts for now. 

* ***************** Version 44 ***************** 

* User: Jrward Date: 1/30/97 Time: l:48p 

* Updated in $/atp/ClientApp 

* Check everything I have in, so Theo can get it. 
* 

* ***************** Version 43 ***************** 

* User: Jrward Date: 1/29/97 Time: 5:30p 

* Updated in $/atp/ClientApp 

* End-Of -Day checkin festival . 
* 

* ***************** Version 42 ***************** 

* User: Jrward Date: 1/28/97 Time: 1 : lip 

* Updated in $/atp/ClientApp 

* Afternoon check-in -- mostly fixes to installation from all the 

* SmartLoad fixes . 
* 

* ***************** Version 41 ***************** 

* User: Jrward - Date: 1/27/97 Time: 5 : lip 

* Updated in $/atp/ClientApp 

* SmartLoad sort of working . - . 

* ***************** Version 40 ***************** 

* User: Jrward Date: 1/27/97 Time: 11:01a 

* Updated in $/atp/ClientApp 

* Smartload stuff moved to separate source files smartload.* 

* ***************** Version 39 ***************** 

* User: Jrward Date: 1/24/97 Time: 4 : 58p 

* Updated in $/atp/Cl lent App 

* New .epsclient SmartLoad file handling: Just waiting on Theo ' s stuff, 

* which he hasn't tested yet. 
* 

* ***************** version 38 ***************** 

* User: Jrward Date: 1/23/97 Time: 4:50p 

* Updated in $/atp/ClientApp 

* Daily check-in: looks like I have the SmartLoad stuff working, I ]ust 

* need the new Client- side protocol code from Theo. 
* 

* ***************** Version 37 ***************** 

* User: Jrward Date: 1/23/97 Time: 3 : 04p 

* Updated in $ /atp/Cl lent App 

* SmartLoad request files handled at the file level { * . epsc 1 rent in 

* LoadRequestDir directory) , but no processing of the innards of the 

* files yet . 
* 

* ***************** version 36 ***************** 
- * User: Jrward Date: 1/23/97 Time: 12 : 26p 

* Updated in $ /atp/Cl lent App 

* Added /LoadRequest switch on clientapp.exe, so can use it as 'helper 

* app with Web browsers for SmartLoad. Actual SmartLoad processing not 

* done yet . 
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* ***************** Version 34 ***************** 

* User: Jrward Date: 1/20/97 Time: 12 : 19p 

* Updated in $/atp/ClientApp 

* Put a rautex around some of the "UGLY" stuff in our debugging display: 

* we were crashing . 
* 

* ***************** Version 33 ***************** 

* User: Jrward Date: 1/13/97 Time: 5 : 02p 

* Updated in $/atp/ClientApp 

* End- of -the -day checkin. 
* 

* ***************** Version 32 ***************** 

* User: Jrward Date: 1/13/97 Time: 5 : OOp 

* Updated in $/atp/ClientApp 

* Cannot get ODBC calls in fake JRDemo.exe to work from the 

* serverISAPI.DLL: work fine when running www server from debugger, but 

* throw when opening the CustomerDB.mdb database when running normally as 

* a service ! 
* 

* ***************** Version 31 ***************** 

* User: Jrward Date: 1/13/97 Time: 9:36a 

* Updated in $/atp/ClientApp 

* Small change in "Setup" dialog for setting IDF directory: still more to 

* do . 
* 

* ***************** Version 30 ***************** 

* User: Jrward „ Date: 1/07/97 Time: 12:16a ^ 

* Updated in $/atp/ClientApp 

* StatusPeriod now configurable. 
* 

* ***************** version 29 ***************** 

* User: Ttonchev Date: 1/06/97 Time: 11 : 19p 

* Updated in $/atp/ClientApp 

* Cleared update at block receive 
* 

* ***************** version 28 ***************** 

* User: Jrward Date: 1/06/97 Time: 1 : 23p 

* Updated in $/atp/Cl ientApp 

* Fixed the SetSecret . . . stuff for bidding our debugging buttons, added 

* OnBut tonS e tup 
* 

* ***************** Version 27 ***************** 

* User: Jrward Date: 1/03/97 Time: 12 : 56p 

* Updated in $/atp/Cl ientApp 

* Small fixes in debugging display dialog. 
* 

* ***************** Version 26 ***************** 

* User: Jrward Date: 1/02/97 Time: 5 : 15p 

* Updated in $/atp/ CI ientApp 

* End of the day check- in. 
* 

* ***************** version 25 ***************** 

* User: Jrward Date: 1/02/97 Time: 10:57a 

* Updated in $/atp/Cl ientApp 

* Added SOURCE_CONTROLi_BL.OCK stuff. 

// JRW 961128 Added BVEKfT SCHEDULE CHECK timer code: but no guts yet. 

// Changed to use updated AtpAttrib class for configuration values 

// JRW 961203 Small fixes. 

// JRW 961213 Hack to make window hidden on startup: 
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// The window flashes briefly the way we . do it here, the 

// real fix would be to have a non-Modal dialog: DoModal 

// always makes the window show up . 

// JRW 961215 Moved "connect to server at startup" to pollling loop in 

// ClientAppDlg from ClientApp: it was too hard getting the 

// non-Window SetTimer functions to work with the application 

/ / class . 

// JRW 961220 Moved protocol initialization, shut-down from Client App . cpp 

// to ClientAppDlg. cpp, to fix the problem of the update 

// call -back function being called after the main dialog was 

// already destroyed: 

// m_idf server , m_atp server , m_content server 

#endif // SOURCE_CONTROL_BLOCK 
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// ClientAppDlg . h : header file 
// 

# i fnde f CLIENTAP PDLG__H 
#define CLIENTAPPDLG_H 



///////////////////////////////////////////////////////////////////////////// 
// CClientAppDlg dialog 

class CClientAppDlg : public CDialog , public IAtpProgressCal lback 

{ 

// Construction 
pub lie: 

CClientAppDlg (AtpAttrib & configVals, CWnd* pParent = NULL) ; 
/ / standard constructor 
-CClientAppDlg () ; // Destructor. 

virtual VOID ProcessConnectionState {const AtpConnect ion& conn) ; 



// Dialog Data 

//{ (AFX_DATA (CClientAppDlg) 

enum { IDD = IDD__CLIENT_DIALOG } ; 

CStatic m_ProgressLabellO ; 

CStatic m_SECRET DEBUG TEXT TOP ; 

CStatic m SECRET DEBUG TEXT BOTTOM ; 

CStatic m__ICON__IMAGE ; 
CStatic ra__ProgressLabel9 ; 
CStatic m_ProgressLabel8? 
CStatic m_ProgressLabel7; 
CStatic m_ProgreasLabel6 ; 
CStatic m_ProgressLabel5; 
CStatic m_ProgressLabel4 ; 
CStatic m_ProgressLabel3 ; 
CStatic m_ProgressLabel2 ; 
CStatic m_ProgressLabell; 

CProgressCtrl m_PROGRESS BAR ; 

// } }AFX_DATA 



// ClassWizard generated virtual function overrides 
//{ { AFX_V I RTUALi (CClientAppDlg) 
public : 

virtual int DoModal ( ) ; 
protected : 

virtual VOID DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 

/ / } } AFX VIRTUAL 

/ / I mp 1 emen t a t i on 
protected : 

HICON m_hIconl6; 

HICON m_hIcon3 2; 

UINT m_IDTimer Progress ; 

UINT m_IDTimerPol 1 Server ; 

UINT m_I DT irae rLoadReques t ; 



/ / ID of timer for the progress -bar 
// ID for polling server . 
// ID for check- smartload-directory 



/ / Generated message map functions 
// { {AFX_MSG (CClientAppDlg) 
virtual BOOL OnlnitDialogO ; 

afx_msg VOID On Sys Command (UINT nID, LP ARAM lParara) ; 
- afx_msg VOID OnDestroy ( ) ; 
afx_msg VOID OnPaint ( ) ; 
afx_msg HCURSOR OnQueryDraglconO ; 
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//}}AFX_ 


MSG 



CPoint point) ; 



DECLARE MESSAGE_MAP ( ) ; 

afx_msg LREStJLT OnNot i f ylcon ( WPARAM wParam, LP ARAM IParam) 



private : 
5 // Theo ' s stuff . . . 

AtpAttrib & m_conf igVals ; 
IDFServer * m_idfserver; 
Socket Control * m_atpserver; 
Content Control *_/m_ content server ; 

BOOL m_bStartHidden; 

BOOL m_bSecretDebugMode ; // JRW Show "secret debugging" part of dialog 

#ifdef OLD_STUFF // moved to SocketCont rol 

BOOL ServerConnectionAlready (const CString & serverName) ; 
#endif OLD STUFF 

VOID KillLoopTimers ( ) ; 

VOID InitializeLoopTimers ( ) ; 

VOID LoopClientPollServer ( ) ; 



VOID LoopCheckLoadRequestsO ; 

VOID LoopUpdateProgressDialog ( ) ; // To update progress bar 
VOID GetProgressValues (PVOID pProgressInfo) ; 



VOID SetSecretDebugDialog { ) 
VOID Ini tializeProtocolStuf f ( ) 
VOID UnlnitializeProtocolStuf f ( ) ; 

}; 



# i f de f SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 

Copyright 1996, 19 97. All Rights Reserved. 
SUBSYSTEM: ClientApp customer client program 
$Workfile: ClientAppDlg.h $ 
" $Author : Jrward $ 
$Revision: 3 7 $ 
$Date: 1/31/97 2:48p $ 
$Modtime: 1/25/97 7:58p $ 

$History: ClientAppDlg.h $ 

* 

* ***************** Version 37 ***************** 



2 



1 i /*■ 



* User-: Jrward Date: 1/31/97 Time: 2:48p 
' * Updated in $/atp/ClientApp 

; * Global check-in. 
* 

* ***************** Version 36 ***************** 

* User: Jrward Date: 1/31/97 Time: 10:47a 

* Updated in $ /atp/ Client App 

* Stubbed out some netstat asserts for now. 
* 

* ***************** Version 35 ***************** 

* User: Jrward Date: 1/30/97 Time: l:48p 

* updated in $/atp/ClientApp 

* Check everything I have in, so Theo can get it. 

* ***************** Version 34 ***************** 

* User: Jrward Date: 1/29/97 Time: 5:30p 
; * Updated in $/atp/ClientApp 

* End-Of-Day checkin festival. 

5 * 

- * ***************** Version 33 ***************** 

- * User: Jrward Date: 1/28/97 Time: l:llp 

* Updated in $/atp/Cl ientApp 

* Afternoon check- in -- mostly fixes to installation from all the 

* SmartLoad fixes . 

* ***************** Version 32 ***************** 

* User: Jrward Date: 1/27/97 Time: 5: lip 

* Updated in $/atp/Cl ientApp 

1 * Smart Load sort of working - . . 
* 

* ***************** Version 31 ***************** 
' * User: Jrward Date: 1/27/97 Time: 10:29a 

* Updated in $/ atp/ Cl ientApp 

* Smartload stuff now in separate sources Smart Load . cpp , Smart Load . h 
* 

* ***************** Version 30 ***************** 

* User: Jrward Date: 1/24/97 Time: 4 : 58p 
' * Updated in $/atp/ClientApp 

■ * Added button for "Check Smartload Now" 

: * 

.; * ***************** Version 29 ***************** 

1 * User: Jrward Date: 1/23/97 Time: 4:50p 
! * Updated in $/atp/Cl ientApp 

• * Daily check- in: looks like I have the SmartLoad stuff working, I just 

: * need the new Client-side protocol code from Theo. 

2 * 

* ***************** Version 28 ***************** 

■ * user: Jrward Date: 1/23/97 Time: 3 : 04p 
! * Updated in $/atp/Cl ientApp 

I * SmartLoad request files handled at the file level (*.epsclient in 
; * LoadRequestDir directory), but no processing of the innards of the 

* files yet . 
* 

\ * ***************** version 27 ***************** 
^ * User: Jrward Date: 1/23/97 Time: 12:26p 

\ * Updated in $/atp/ClientApp 

■ * Added /LoadRequest switch on clientapp.exe, so can use it as "helper" 
1 * app with Web browsers for SmartLoad- Actual SmartLoad processing not 
] * done yet . 
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***************** 



User: Jrward Date: 1/20/97 

Updated in $/atp/ClientApp 
Put a rautex around some of the "UGLY 
we were crashing , 



Time: 12 : 19p 

stuff in our debugging display: 



***************** Version 25 ***************** 

User: Jrward Date: 1/13/97 Time: 5 : 02p 

Updated in $/atp/Cl ientApp 
End- of - the -day checkin. 

***************** Version 24 ***************** 
User: Jrward Date: 1/13/97 Time: 5 : OOp 

Updated in $/atp/ CI ientApp 

Cannot get ODBC calls in fake JRDemo . exe to work from the 
ServerlSAPI .DLL: work fine when running www server from debugger, but 
throw when opening the CustomerDB.mdb database when running normally as 
a service! 

***************** Version 23 ***************** 
User: Jrward Date; 1/13/97 Time: 9:36a 

Updated in $/atp/Cl ientApp 

Small change in "-Setup" dialog for setting IDF directory: still more to 
do. 



***************** Version 22 ***************** 
User: Jrward Date: 1/07/97 Time: 12:16a 

Updated in $/atp/ClientApp 
StatusPeriod now configurable. 

***************** Version 21 ***************** 
User: Ttonchev Date: 1/06/9 7 Time: 11: 2 Op 

Updated in $/atp/Cl ientApp 



***** * 



***************** 
Time : 1 : 2 3p 



******** Version 2 0 
User: Jrward Date: 1/06/97 

Updated in $/atp/ClientApp 

Fixed the SetSecret . . . stuff for hidding our debugging buttons, 
OnButtonSetup 

***************** Version 18 ***************** 
User: Jrward Date; 1/02/97 Time: 10:57a 

Updated in $ /atp/Cl ientApp 
Added SOURCE CONTROL BLOCK stuff . 



added 



// JRW 

// JRW 

// 

// 

// 

// JRW 
// JRW 
// 

// JRW 

// 

// 

// 

// 

#endif 



961127 
961215 



961217 
961220 



// 



Added stuff for EVENT__ SCHEDULE CHECK Timer function. 

Moved "connect to server at startup" to polling loop in 
ClientAppDlg from ClientApp: it was too hard getting the 
non-Window SetTimer functions to work with the application 
class . 

m_updateMutex, other stuff. 

rnjupdateMutex et al remove, now that all engineers agree 
this was not the correct solution. 

Moved protocol initialization, shut-down from ClientApp . cpp 
to ClientAppDlg . cpp, to fix the problem of the update 
call-back function being called after the main dialog was 
a 1 ready de s t royed : 

m_idf server, m__atpserver , m_content server 
SOURCE CONTROL BLOCK 



#endif 



// CL I ENTAP PDLG H 



// atpmemf ile . cpp ; implementation of class AtpMemFile 

#include "stdafx.h" 

^include " atpmemf ile . h" 

#include "atpdata.h" 

#include "atpexcept.h" 

#ifdef DEBUG 

#define new DEBUG ISJEW 

#undef THIS_FILE 

static char THIS_FI1.EC] = FILE ; 

#endif 

AtpMemFile :: AtpMemFile (AtpAttribSt attrib) : AtpFileO { 
SetAttributes (attirib) ; 
BindToFile (new CMemFileO); 

} 

AtpMemFile -AtpMemFile ( ) { 
delete GetFileO ; 

} 

void AtpMemFile :: GetAttributes (AtpAttrib& attrib) { 
AtpAttrib arg; 

AtpFile.* .-GetAttributes (arg) ; 
long size; 
try { 

size = AtpAttrib: :ParseInt (arg [ATP ARG SIZE] ) ; 

} catch ( Format Except ion ex) { 
ex ; 

size = 0 ; 

} 

long fsize = GetFile 
if (fsize 1= size) { 

arg [ATP_ARG_SIZE] 

SetAttributes (arg) 

} 

attrib = arg; 

} 

#ifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS CI lent /Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 
SUBSYSTEM: EPS Protocol 
$Workfile: atpmemf ile . cpp $ 
$Author : J r ward $ 
$Revision-. 3 $ 
$Date: 1/27/97 12:07p $ 
$Modtime: 1/27/97 12 : 06p $ 

$Hi story; atpmemf i le . cpp $ 
* 

* ***************** Version 3 ***************** 

* User: Jrward Date: 1/27/97 Time: 12 : 07p 

* Updated in $/atp/Protocol 

* Added VSS history stuff. 
#endif // SOURCE_CONTROL_BLOCK 



{ ) - >Getljength ( ) ; 

= AtpAttrib :: Unparselnt (fsize) ; 
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// 

// C++ Header file 
// (c) 1996 ACS 
// 

#ifndef _AT PMEMF I LE H 

#def ine __ATPMEMFIIjE H 

# include "stdafx.h" 
iinclude "atpfile.h" 

class AtpMemFile : public AtpFile { 
private : 

// disallow copy contructor and assignment 

AtpMemFile (const AtpFile&) ; 

void operator=(const AtpMemFile^) / 

public : 

AtpMemFile (AtpAttrib& attrib) ; 
virtual -AtpMemFile { ) ; 

virtual void GetAttributes (AtpAttrib& attrib); 



#endif // AT PMEMF I LtE H 

/ / End of headers 



#ifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS CI lent / Server program 
E ~ PS line 

Copyright 1996, 1997. All Rights Reserved. 
SUBSYSTEM : E-parcel . com 
$Workfile : atpmemf ile .h $ 
$Author : Jrward $ 
$Revision: 2 $ 
$Date: 1/27/97 12 : 13p $ 
$Modtime: 1/27/97 12 : lip $ 

$History: atpmemf ile -h $ 
* 

* ***************** Version 2 

* User: Jrward Date: 1/27/97 Time: 12 : I3p 

* Updated in $/atp/ Include 

* Added VSS history stuff. 
#endif // SOURCE_CONTROL_BLOCK 



e**************** 
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// atpserver . cpp : implementation of the AtpServerSocket class 



#include <stdlib.h> 
# include "stdafx.h" 
^include <assert.h> 

ffmclude "atpserver.h" 

jfinclude "atpexcept .h" 

# include " atpdata . h" 

^include "atpmemf ile .h" 

# include "atprepfile -ti" 

# inc lude "utility.h" 

#ifdef DEBUG 

ffdefine new DEBUG NEW 

ttundef THIS_FILE 

static char THIS FILE [] = FILE ; 

ttendif 

#def ine CONFIGFILEDIR » \\ \ \THESERVER\ \EPS\ \ SERVER\ \USERCONFIG\ \ " 
#define MAX_CONT_PERIOD 3 0 

# define MAX DAY H 1ST- 15 

itdefine MAX_INTERVAL (2*60*60) 
#define BENCHMARK'S I ZE 16 

AtpServerSocket : : AtpServerSocket (AtpFileServer *rep_server, CCustomerDB *dt>) : AtpSocket 
{ 

m_rep_server = rep_server ; 
tn_db = db ; 

} 

AtpServerSocket :: -AtpServerSocket ( ) { 

}; 

// Return empty string to deny access 

CString AtpServerSocket : : ServerObtainPassword (CString username) { 
CString pass = " " ; 
Receiverlnf o info ; 
CReceiverlnfo *pList; 
pList = m_db->GetReceiverL.ist ( ) ; 
if (ipList) return pass; 

if (pList- >FindReceiver (inf o, username}) 

pass -■- inf o . Password; 
m_db- >ReleaseReceiverList (pList) ; 
return pass ; 

} 

void AtpServerSocket : : Run ( ) { 
try { 

InitializeServer ( > ; 

if ( !AuthenticateServer() } return; 
ServerLoginUser ( ) ; 
ServerLoop ( ) ; 
} catch (CMyException ex) { 
ex ,- 

Close ( ) ; 

} 

Server Logout User ( ) ; 

} 

1 
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void AtpServerSocket : :RunAnon() { 
try { 

initializeServerf) ; 
ServerLoop ( ) / 
} catch (CMyException ex) { 
ex ; 

Close ( ) 

} 

} 

void AtpServerSocket: :UpdateTrafficStats (ReceiverlnfoSc info) { 
SocketTraffic traffic = GetSocketTraf f ic ( ) ; 
inf o . AvThroughput = ( info . AvThroughput* info . LoginCount+ 

traf f ic .AverageOut* traffic . IntervalOut) / 
( info . LoginCount+traf f ic . IntervalOut+1) ; 
mfo.LoginCount += traffic . IntervalOut ; 
if ( info . LoginCount > MAX_INTERVAL) 
mfo.LoginCount = MAX_ INTERVAL ; 

} 

void AtpServerSocket: :UpdatePingTimes (ReceiverInfo& info) { 
try { 

CTime now = AtpAttrib : -. ParseTime ( AtpAttr ib : : UnparseTime (CTime ; .* Get Current Time ( ) ) ) 
CTime last = AtpAttrib: : ParseTime ( info . LastConnect ) / 
CTirneSpan span =" now - last/ - 
if (span.GetTotalMinutes () < MAX_CONT_PERIOD) { 

// assume user has been online in the meantime 

if (now.GetDayO «= last . GetDay { ) ) { 

info . TodayLoginTime += 24*60 - ( last . GetHour ( ) * 60 + last .GetMinute () ) ; 

// calc day average 

info . AvDayLoginTime = ( info . AvDayLoginTime * info . Day Count + 

inf o - TodayLoginTime) / ( inf o . Day Count + l); 

info . DayCount++ ; 

if (info.DayCount > MAX^DAY H 1ST) inf o . DayCount = MAX DAY H 1ST; 

inf o . TodayLoginTime = now . GetHour () *60 + now . GetMinute { ) ; 

} 

else 

inf o . TodayLoginTime += span.GetTotalMinutes!) ; 

} 

} catch (FormatException ex) { 
ex; 

HACKassert ( "Bad DB entry format (LastConnect)", TRUE) 

} 

inf o .LastConnect = AtpAttrib: : UnparseTime (CTime : GetCurrentTime ( ) ) ; 

} 

void AtpServerSocket: : ServerLoginUser ( ) { 
Receiverlnfo info; 
CReceiverlnf o * pList ; 
pList = m_db- >GetReceiverList ( ) ; 
if (IpList) return; 

if (pList->FindReceiver (info, GetUserName () ) == FALSE) { 
m_db->ReleaseReceiverList (pList) ; 
return ; 

} 

m_RegisteredNow = FALSE; 
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if ( I info . Registered) { 
m_RegisteredNow = TRUE ; 
info . Registered = TRUE ; 
info . AvThroughput = 0; 
inf o . Eff Throughput = 0; 
info . AvLoginDurat ion = 0 ; 
info.LoginCount = 0; 
inf o . AvDayLoginTime = 8*60*60; 
info . DayCourit = 0 

info.LastConnect = AtpAttrib : :UnparseTime (CTime : ■. Ge tCurrentTime ( ) > 
inf o . Today Log inTime = 0; 

} 

info.HostName = m_peerhost ; 
UpdatePingTimes (info) ,- 

pLis t - >UpdateReceiver ( inf o) ; 
m_db- >ReleaseReceiverList (pList) ; 

} 

void AtpServerSocket r : ServerLogoutUser ( ) { 
Receiverlnfo info; 
CReceiverlnfo * pList; 
pList = m_db- >GetRgceiverList ( ) ; 

if ( IpList) return; - 
if (pList- >FindReceiver (inf o, GetUserName ( ) ) == FALSE) { 

m_db->ReleaseReceiverList {pList > ; 

return ; 

} 

UpdatePingTimes ( inf o) ; 
UpdateTraf f icStats (info) ; 

pLi st - >UpdateReceiver ( info ) ; 
m_db- >ReIeaseReceiverList (pList) ; 

} 

void AtpServerSocket : : ServerHandleSend ( AtpAttrib& arg) { 
BOOL special = FALSE ; 
try { 

special = ( I arg [ATP_ARG_SPECTAL] . IsEmpty ( ) && 

AtpAttrib: : ParseBool {arg [ATP_ARG_SPECIAL] ) ) ; 
} catch (Format Except ion ex) { 
ex / 

} 

CSt ring name = arg [ATP_ARG_NAME] ,- 
if ( ! special ) { 

ServerRejectSendO ; 

return ; 

} 

- if (name == ATP_FILE_CONFIG) { 
AtpAttrib config; 
AtpMemFile af 1 (arg) ; 
ServerAcceptSend (af 1 ) ; 
CFile *fl = afl.GetFileO; 
f 1- >SeekToBegin { ) 



C Archive ar(fl, CArchive : 



: load) ; 



conf ig . ParseFile (ar) 

Receiverlnfo info ; 
CReceiverlnfo * pList ; 
pList = m_db->GetReceiverList () ; 
if ( IpList) return ; 

if (pList->FindReceiver (info, GetUserNarae ( ) ) == FALSE) { 
tn_db~>ReleaseReceiverList (pList) ; 
return ; 

} 

pList->GetConf iglnfo (info) ; 

if ( info . ComputerConf ig . IsErapty ( ) )| ! FileExists (info. Computer Conf ig) ) { 
// create a unique file 
char tmp [JYLAX_PATH] = " " ; 

GetTempFileName (CONFIGFILEDIR, "uc" , 0 , tmp) ; 
info . ComputerConf ig = tmp; 

} 

try { 

CFile *fl = NULL; 

fl = new CFile ( info . ComputerConf ig, CFile: :modeWrite [ J 

CFile: : modeCreate) ; 
CArchive ar(fl, CArchive : : store) ; 
conf ig.UnparseFile (ar) ; 
ar - Close ( ) ; 
delete fl; 
} catch (CFi leException *e) { 
e- >Delete ( ) ; 

} 

pList->SetConfigInfo(info) ; 

m db- >ReleaseReceiverList (pList) ; 

return ; 

}; 

ServerRejectSendO ; 
return ; 

} 

void AtpServe r Socket :: ServerHandleRecv (AtpAttrib& arg) { 
BOOL special = FALSE; 
try { 

special = ( ! arg [AT P_ARG_S FECIAL] . IsEmpty ( ) 

AtpAttrib: : ParseBool { arg [AT P_ARG__S PEC I AL ] ) ) ; 
} catch (Format Except ion ex) { 
ex ; 

} 

CSt ring name = arg [ATP_ARG NAME] ; 

if (special) { 

if (name ATP F I LE REG I STRAT I ON ) { 

AtpMemFile af 1 (arg) ; 

ServerAcceptRecv(afl) ; 

return; 

} 

if (name == ATP F I LE LI ST ) { 

AtpMemFile afl(arg); 
CFile *fl = afl.GetFileO ; 
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CString list = m_rep__server->GetReceiverPackageList (GetUserName ( ) ) 
f 1- >Write ( (LPCSTR) list , list .GetLength ( ) ) ; 
fl->Flush() ; 

ServerAcceptRecv (af 1 ) ; 
return ; 

} 

if (name == AT P F I L.E_B ENCHMARK > { 

AtpMemFile af 1 (arg) ; 

CFile *fl = af 1 .GetFile () ; 

chair buf [1024] ; 

for ( int i = 0 ; i < B ENCHMARK S I Z E ; i++ ) 

f l->Write (buf , 1024) ; 
f l->Flush { ) ; 

ServerAcceptRecv (afl) ; 
return ; 

} 

ServerRejectRecvO ; 
return; 

} 

AtpFile *afl - m_rep__server->CreatePackageFile (GetUserName ( ) , arg) ; 
if (!afl> { 

ServerRejectRecvO ; 

return ; 

} 

try { 

ServerAcceptRecv ( *af 1 ) ; 
} catch (CMyException ex) { 
delete af 1; 
ex ; 

throw ; 

} 

delete af 1 ; 

} 

///// Debugging utilities ///// 
#ifdef DEBUG 

void AtpServerSocket :: Assert Valid ( ) const 

{ 

AtpSocket: : AssertValid ( ) ; 

} 

void AtpServerSocket : : Dump (CDumpContext& dc) const 
{ 

AtpSocket: :Dump(dc) ; 

} 

#endif / /_DEBUG 



# i f de f SOURCE_CONTROL_BLOCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 



.is 

Q 



Copyright 1996 f 1997. All Rights Reserved. 

SUBSYSTEM: Server Protocol 

$Workf ile: atpserver . cpp $ 

$ Author : Jrward $ 

$ Revision: 12 $ 

$Date: 1/27/97 11:21a $ 

$Modtime: 1/27/97 11:21a $ 

$Hi story: atpserver . cpp $ 
* 

* ***************** Version 12 ***************** 

* User: Jrward Date: 1/27/97 Time: 11:21a 

* Updated in $/atp/ServerProtocol 

* Added VSS history stuff. 

# end if // SOURCE_CONTROL_BLOCK 
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// atpsock.h : interface of the CAtpSocket class 



#ifndef 
#def ine 



AT P S ERV E R H__ 

ATPSERVER H 



^include "stdafx.h" 

^include "atpsock.h" 

#include "AtpFileServer .h" 

# include "CustomerDB.h" 

typedef long AtpConnUID; 



{ 



class AtpConnection 
publ ic : 

enum AtpState 

CONNECTING, 

WAITING , 

RECEIVING f 

PAUSED , 

CLOSING 

}; 



// Connection just created 

// Connection established; waiting for transfer 

// Transfering data 
// Transfer paused for some reason 
// Connection will be closed 



AtpConnUID uid; 
AtpState state ; 
CString peer_address ; 
unsigned int peer_port ; 
SocketTraf f ic * traffic; 



IDFile *idf; 



// Valid only if RECEIVING, or PAUSED 



class AtpServerSocket : public AtpSocket { 
// Inherited public methods: 

// InitializeServerO , AuthenticateServer < ) , Server Loop ( ) 
publ ic : 

AtpServerSocket (AtpFileServer *rep__server, CCustomerDB *db) 
virtual -AtpServerSocket ( ) ; 

void Run ( ) ; 
void RunAnon ( ) ; 

protected : 

virtual CString ServerObtainPassword (CString username) ; 
virtual void ServerLoginUser { } ; 
virtual void Server Logout User ( } ; 

//virtual void ServerNegotiateBlock ( long client ^preferred) ; 
virtual void ServerHandl eSend (AtpAttrib& arg) ; 
virtual void Serve rHandleRecv (AtpAttr ib& arg); 



private : 

void UpdateTraf f icStats (ReceiverInfo& info) 
void UpdatePingTimes { Receiverlnf o& info) ; 

protected : 
#ifdef _DEBUG 

void AssertValid ( ) const; 
, void Dump (CDumpCon text & dc) const; 
#endif // DEBUG 
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-private : 

- AtpFileServer *m_rep_server ; 

CCust ome rDB * m_db ; 
: BOOL m_RegisteredNow; 

,#endif // ATPSERVER H 



, #if def SOURCE^CONTROL^BLOCK 

, Project Name: E-PS Client /Server program 
E— PS Inc 

J Copyright 1996, 1997. All Rights Reserved. 
* SUBSYSTEM: E-pa.rcel.com 

$Workfile: atpserver.h $ 

$Author : Jrward $ 

$Revision : 6 $ 

$Date: 1/27/97 12:13p $ 
1 $Modtime: 1/27/97 12 : lip $ 

$Hxstory: atpserver.h $ 

* ***************** ~ version 6 ***************** 

* User: Jrward Date: 1/27/97 Time: 12 : 13p 

* Updated in $ /atp/ Include 

* Added VSS history stuff. 
#endif // SOURCE_CONTROL_BLOCK 
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// 

// C+ + code file 
// (c) 19 96 ACS 
// 

# include "stdafx.h" 

# include <assert . h> 

# include " SSocketControl . h" 
# include " atpexcept . h" 

# include "sockutil .h" 

#ifdef DEBUG 

^define new DEBUG NEW 

#undef THIS_FILE 

static char- THIS FILE [] - FILE ; 

#endif 

SSocketControl : : SSocketControl ( ) { 
m__l sock = NULL ; 
m_allow_anon — FALSE; 

} 

SSocketControl : : -SSocketControl ( ) { 
i f ( m_l sock) de 1 e-fe e m_l s o ck ; 
m_lsock = NULL; 

} 

BOOL SSocketControl: : Initialize {AtpFileServer *reps r 
CCustomerDB *db , 

lAtpProgressCallback *pPCB) { 

m_reps = reps; 
m_db = db ; 
m_jpPCB = pPCB ; 

m_lsock = new CListeningSocket (this) ; 

if (m_lsock->Create (ATP_SERVER__PORT) && m_lsock- >L isten ( ) ) 

return TRUE ; 
return FALSE; 

} 

void SSocketControl: : Di s t ribut eFiles ( ) { 

AfxBeginThread(StartDistributionThread, this, 0); 
//StartDistributionThread (this) ; 

} 

UINT SSocketControl: : StartDistributionThread (LPVOID pParam) 
( (SSocketControl * ) pParam) - >RunDistributionThread ( ) ; 
return 0 ; 

} 

void SSocketControl : : RunDistributionThread ( ) { 
BOOL err; 

- Receiverlnfo Receiver, newReceiver; 
CReceiverlnfo * pList ; 
BOOL bReturn; 

pList - m__db- >GetReceiverList ( ) ; 
if { ipList) return; 



err = FALSE ; 

bReturn = pList - >GetFirs t Receiver (newReceiver) ; 
if (FALSE == bReturn) 
err = TRUE ; 

while (bReturn) { 

Receiver = newReceiver; 

bReturn = pList - >Get Next Receiver (newReceiver) ; 
if ( ! err && Receiver - Registered) { 

SOCKET sock = Socket ConriectTo {Receiver - Host Name , ATP_PORT) ; 
if (sock 1= INVALID_SOCKET) { 

Thread Info * info = new Threadlnfo ( ) ; 
info- >me = this; 
info- >sock - sock; 

AfxBeginThread (StartDistributionSocketThread , info, 0); 

} 

} 

err = FALSE; 
if (FALSE == bReturn) 
err = TRUE; 

} 

m_db->ReleaseReceiverList (pList) ; 

} 

UINT SSocketControl : : StartDistributionSocketThread (LPVOID pParam) 
Threadlnfo * info = (Threadlnfo *) pParam; 
inf o- >me- >RunServerSocket ( info- >sock) ; 
delete info; 
return 0 ; 

} 

void SSocketControl RunDistributionSocket (SOCKET sock) { 
// not used so far ■■ use RunServerSocket Instead 

} 



void SSocketControl : : ProcessPendingAccept (CAsyncSocket *sock) { 
//for (int i = 0; i < m_todelete . GetSize ( ) ; i + +) 
// delete rn__todelet e [ i 3 ; 
//m_todelete . Remove All () ; 

CAsyncSocket *atp_sock - new CAsyncSocket () ; 
if ( ! sock- >Accept ( *atp_sock) ) { 

delete atp__sock; 

return ; 

} 

Threadlnfo *info = new Threadlnf o ( ) ; 
info- >me - this; 

info- >sock = atp_sock- >Detach ( ) ; 
delete atp_sock; 

AfxBeginThread (StartSocketThread, info, 0) ; 
//m__conns . Add ( atp_sock- >GetConnect ionSt at e ( ) ) ; 

} 

UINT SSocketControl :: StartSocketThread (LPVOID pParam) { 
Threadlnfo *info = (Threadlnfo *) pParam; 
inf o- >me- > RunServerSocket (info->sock) ; 
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delete info / 
return 0 ; 

} 

void SSocketControl : : RunServerSocket (SOCKET sock) { 
AtpServerSocket ssock (m_reps , m__dfc>) ; 
if (! ssock .Attach (sock) ) { 
assert (FALSE) ; 
return ; 

} 

if ( m_a 1 1 ow_anon ) 

ssock.RunAnonO ; 
else 

ssock . Run ( ) ; 

} 

void SSocketControl : : ProcessClose (CAsyncSocket *sock) { 

} 



// JRW ; Return state reference for a given connection: 

// IN: uid: id of the connection 

// OUT: conn: AtpConnect ion reference 

BOOL SSocketControl GetConnect ionState ( long uid, AtpConnect ion* & conn) { 
return FALSE; 

} 

// JRW : Return pointer to array of all connections. 

const CPtrArray* SSocketControl :: GetAllConnect ionStates { ) { 
return &m_conns ; 

} 

SocketTraf f ic SSocketControl :: GetSocketTraf fic { ) { 
SocketTraffic traffic; 
return traffic,- 

} 

/ / End of code 

#ifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS Cl lent /Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: ServerProtocol 

$Workfile*. SSocketControl . cpp $ 

$Author : Jrward $ 

$Revision: 12 $ 

$Date: 1/27/97 11:21a $ 

$Modtime: 1/27/97 11:21a $ 

$History: SSocketControl . cpp $ 
* 

* ***************** Version 12 ***************** 

* User: Jrward Date: 1/27/97 Time: 11:21a 

* Updated in $/atp/ServerProtocol 
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; * Added VSS history stuff, 
(tendif // SOURCE_CONTROL_BLOCK 
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// 

// C++ header file 
// (c) 1996 ACS 
// 

ttifncLef _JSSOCKETCONTROL_H_ 
tfdefine _SSOCKETCONTROL_H__ 

#include "stdafx . h" 

# include "callback.h" 

#include "lstnsock . h" 

#include "atpsock.h" 

# include " atpf ileserver . h." 

include " atpserver . h" 

#include "CustomerDB . h" 



const ATP_PORT = 608; 

const ATP_SERVER__PORT = 609 j 



// JRW proper -public" on everything ... 
class SSocketControl : public ISockCallback 

public IAtpCallback, public JAtpStateCallback 

publ ic : 

SSocketControl ( ) ; 

virtual -SSocketControl ( ) ; 

^virtual void ProcessPendingAccept (CAsyncSocket *sock> ; 
virtual void ProcessClose (CAsyncSocket 'sockl ; 

virtual BOOL GetConnectionStateUong uid, AtpConnection* & conn); 
virtual const CPtrArray* GetAllConnectionStates ( ) ; 
virtual SocketTraf fic GetSocketTraf f 10 ( ) ; 

BOO L Initialize (AtpFileServer *reps, CCustomerDB* db. lAtpProgre, 

void DistributeFiles () ; 

private: 

struct Threadlnfo { 
SSocketControl* me; 
SOCKET sock ; 

}; 

static UINT StartSocketThread(LPVOID P Par am) ; 
void RunServer Socket (SOCKET sock) ; 

static UINT StartDistributionThread(LPVOID pParam); 
void RunDistribut ionThread ( ) ; 

static UINT startDistributionSocketTbreadCLPVOID pParam) ; 
void RunDistribut ionsocket (SOCKET sock); 



publ ic : 

BOOL. m_a 1 1 ow^anon ; 

private : 

AtpFileServer *m_reps; 

1 
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CCustomerDB *m_db; 
lAtpProgressCallback *rn__pPCB; 

CListeningSocket *m_lsock; 
CPtrArray m_ conns ; 

: ' } ; 

#endif // _SSOCKETCONTROL_H_ 
// End of header's 

#ifdef SOURCE_CONTROL_BLOCK 
Project Name: E-PS CI lent /Server- program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: E -parcel . com 

$Workfile: S Socket Control . h $ 
5 $Author : Jrward $ 

$Revision: 4 $ 
III , $Date : 1/27/97 12 : 13p $ 

|S $Modtirae: 1/27/97 12 : 12p $ 

Jjf $History: SSocketControl . h $ 

:i si * 

..' * ***************** Version 4 ***************** 
* User: Jrward ~ Date: 1/27/97 Time: 12 : 13p 

I. r| ' * Updated in $/atp/Include 

ffi - * Added VSS history stuff. 

. #endif // SOURCE_CONTROL_BI.OCK 
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// Server 1 . cpp : Defines the class behaviors for the application. 
// 



# include "stdafx.h" 

^include "Serverl.h" 

#include "ServerlDlg.h" 

#include " CustomerDB.h" 

^include "RepServer.h" 

#include "SSocketControl .h" 

# include "DistribServer . h" 



#ifdef DEBUG 

^define new DEBUG_NEW 
#undef THIS_FILE 

Static char THIS_FILE [] = FILE 

#endif 



# define USERDB DATASOURCENAME "CustoraerDB 



///////////////////////////////////////////////////////////////////////////// 
// CServerlApp 

BEGIN_MESSAGE_MAP (CServerlApp, CWinApp) 
// { {AFX_MSG_MAP (CServerlApp) 

// MOTE - the ClassWizard will add and remove mapping macros here. 
// DO NOT EDIT what you see in these blocks of generated code! 
/ / } } AFX MSG 

ON COMMAND ( ID HELP , CWinApp :: OnHelp ) 

END MESSAGE_MAP ( ) ; 

///////////////////////////////////////////////////////////////////////////// 
// CServerlApp construction 

CServerlApp : : CServerlApp ( ) 
{ 

// TODO : add construction code here, 

// Place all significant initialization in Initlnstance 

} 

///////////////////////////////////////////////////////////////////////////// 
// The one and only CServerlApp object 

CServerlApp theApp ; 

///////////////////////////////////////////////////////////////////////////// 
// CServerlApp initialization 

BOOL. CServerlApp : : Initlnstance ( ) 
( 

if ( ! AfxSocketlnit ( ) ) 
{ 

AfxMessageBox ( IDP_SOCKETS_J£NIT_FAILED) ; 
return FALSE; 

} 



// Initialize OLE libraries 
if ( ! AfxOlelnit ( ) .} 
{ 

AfxMessageBox ( IDP OLE IN IT FAILED) ; 



return FALSE; 

} 



// Standard initialization 

// If you are not using these features and wish to reduce the size 

// of your final executable, you should remove from the following 

// the specific initialization routines you do not need. 

ttifdef AFXDLL 

Enable3dControls ( ) ; // Call this when using MFC in a shared 

#else 

Enable3dControlsStatic ( ) ; // Call this when linking to MFC statically 

#endif 

// Parse the command line to see if launched as OLE server 
if (RunEmbeddedO | [ RunAutomated ( ) ) 
( 

// Register all OLE server (factories) as running. This enables the 
// OLE libraries to create objects from other applications. 
COleTemplateServer : : RegisterAll ( ) ; 

// Application was run with /Embedding or /Automation. Don't show the 
// main window in this case, 
return TRUE; 

} 

// When a server application is launched stand-alone, it is a good idea 
// to update the system registry in case it has been damaged. 
COleObj ect Factory : : UpdateRegistryAll ( ) ; 



CCustomerDB *db = new CCustomerDB ( ) ; 

if (! db-> Connect (USERDB_D AT ASOURCENAME) ) { 

Af xMessageBox ( "Cannot connect to user database . \n" ) ; 

return FALSE; 

} 

RepServer *rep = new RepServer ( ) ; 
//rep . AddDirectory ( "D: \\idf iles" ) ; 

Distr ibServer *distrib = new DistribServer (db) ; 

S Socket Control *atp_server = new SSocketControl ( ) ; 
atp__server- >Ini tial ize ( distrib , db, NULL) ,- 

CServerlDlg dig (rep, atp_server) ; 
m_pM a i n Wnd = &dlg 

int nResponse = dig . DoModal ( ) ; 
if (nResponse = = I DOK ) 

{ 

// TODO : Place code here to handle when the dialog is 
// dismissed with OK 

} 

else if (nResponse == IDCANCEL) 
{ 

// TODO: Place code here to handle when the dialog is 
// dismissed with Cancel 

} 

// Since the dialog has been closed, return FALSE so that we exit the 



// application, rather than start the application's message pump. 

delete atp_server; 

delete rep; 

delete distrib; 

delete db; 

return FALSE; 



mt WriteErrorLog (char const * , char const *) { 
return ERROR_SUCCESS ; 

} 

# i f de f SOURCE_COHTOOL_BLOCK 
Project Name: E - PS CI lent /Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: Main Server 

$Workf ile: Serverl . cpp $ 

$Author : Ttonchev $ 

$Revision: 7 $ 

$Date: 1/30/97 12 : 55p $ 

$Modtime: 1/30/97 12 : 54p $ 

$History : Serverl . cpp $ 

* ***************** ve r s i on 7 ***************** 

* User: Ttonchev Date: 1/30/97 Time; 12:55p 

* Updated in $/ at p/ Serve rApp 

* added a ^include for DistribServer (was forgotten; file could not 

* comp ile) 
* 

* ***************** Version 6 ***************** 

* User: Jrward Date: 1/2 7/97 Time: 12:05p 

* Updated in $/atp/ServerApp 

* Added VSS History stuff. 
#endif // SOURCE_CONTROL_BLOCK 
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// Serve rl . h : main header file for trie SERVER1 application 
// 



#ifndef AFXWIN__H 

#error include ' stdafx.h' before including this file for PCH 
#endif 

# include " resource. h" // main symbols 

///////////////////////////////////////////////////////////////////////////// 
// CServerlApp: 

// See Serverl . cpp for the implementation of this class 
// 

class CServerlApp : public CWinApp 
{ 

public : 

CServerlApp { ) ,- 

// Overrides 

/ / ClassWizard generated virtual function overrides 

// { { AFX VIRTUAL (CServerlApp) 

publ ic : 

virtual BOOL. Init Ins tance { ) ; 
//}} AFX_V I RTUAL " 

// Implementation 

// { { AFX_MSG (CServerlApp) 

// NOTE - the ClassWizard will add and remove member functions here. 

// DO NOT EDIT what you see in these blocks of generated code 3 

/ / } } AFX MSG 

DECLiARE_MESSAGE MAP ( ) 

}; 



///////////////////////////////////////////////////////////////////////////// 

#ifdef SOURCE_CONTROl4_BL.OCK 
Project Name: E-PS Client/Server program 
E-PS Inc. 

Copyright 1996, 1997. All Rights Reserved. 

SUBSYSTEM: Main Server 

$Workfile: Serverl. h $ 

$Author : Jrward $ 

$Revision: 4 $ 

$Date: 1/27/97 12:05p $ 

$Modtime: 1/27/97 12 : 04p $ 

$History: Serverl . h $ 
* 

* ****************** Version 4 **•*************-** 

. * User: Jrward Date.- 1/27/97 Time: 12 : 05p 

* Updated in $/atp/ServerApp 

* Added VSS History stuff. 
#endif // SOURCE_CONTROL_BIiOCK 



Having now described a few embodiments of the invention, and 
some modifications and variations thereto, it should be apparent 
to those skilled in the art that the foregoing is merely 
illustrative and not limiting, having been presented by the way 
of example only . Numerous modifications and other embodiments 
are within the scope of one of ordinary ski 1 1 in the art and are 
contemplated as falling within the scope of the invention as 
limited only by the appended claims and equivalents thereto . 
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WHAT IS CLAIMED IS: 

1. in a client/server system connected by a network in 
which information is transmitted by a service provider over a 
server, 

means at said client including a computer for running client 
software; 

client software provided by said service provider to said 
client to be run on the associated computer for ascertaining 
demographic information related to said client and for periodic 
transmission thereof back to said server; 

means at said client for periodically transmitting said 
demographic information to said server ; and, 

means at said server for creating a database of information 
transmitted from said client, for filtering the data in said 
database as to demographic parameters and for displaying the 
resultant information . 

2. The system of Claim 1 wherein said computer has a CPU 
and wherein said demographic information includes the power of 
the CPU at said client . 

3. The system of Claim 1 wherein said computer has a hand 
disk and wherein said demographic information includes the hard 
disk space available at said computer. 

4. The system of Claim 1 wherein said computer has 
applications installed therein and wherein said demographic 
information includes the identity of the applications installed 
in said computer. 
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5 . The system of Claim 1 wherein said computer includes a 
modem having a predetermined bandwidth connected thereto and 
wherein said demographic information includes the speed of said 
modem. 



6. The system of Claim 1 wherein said computer bar means 
for keeping track of log-in history and wherein said demographic 
information includes the log-in history of said computer. 



7. The system of Claim 1 wherein said client software has a 
unique serial number associated therewith and wherein said means 
for periodically transmitting said demographic information 
includes means for transmitting said serial number . 



8* The system of Claim 7 wherein said means at said server 
for creating said database includes means for assuring the 
anonimity of said client regardless of the transmission of said 
serial number. 



9. The system of Claim 1 and further including means at 
said server for automatically selecting to which client contents 
are to be transmitted; 



10. The system of Claim 9 wherein said means for 
automatically selecting to which client client's are to be 
transmitted includes means coupled to said database for 
ascertaining the ability of a client to receive said contents 
and for transmitting said contents only to those clients having 
appropriate abi li ty . 
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11. The system of Claim 9 wherein said server has multiple 
versions of" contents to be transmitted to clients and wherein 
said means for automatically selecting to which client contents 
are to be transmitted selects a version to be transmitted to a 
client based on the ability of said client to receive said 
version . 

12. The system of Claim 11 wherein that version selected is 
the most complex possible for receipt by said client. 

13. The system of Claim 9 wherein said means for 
automatically selecting to which client contents are to be 
transmitted includes means for ascertaining if a client is a 
member of a predetermined service provider and transmitting said 
contents only to said members. 

14 . The system of Claim 1 and further including means at 
said server for controlling when said client transmits said 
demographic information to said server . 
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ABSTRACT 



In an Internet-based client/server application, a system is 
provided which detects demographics of a client including CPtH 
power, hard disk space, applications installed, network 
connectivity and log-in history so as to provide this 
infrastructure related information detailing client usage of the 
Internet to the service provider. In one embodiment, each user 
is provided with software having a unique serial number ., Having 
the serial number, infrastructure data is checked at the client? 
side and reported to the server periodically, with the server, 
updating a database with the infrastructure data from each PC.j 
In one embodiment, the database is filtered by factors such as| 
location of the client and an indication of which providers; 
delivered software to a client* After filtering, the service 
provider can obtain various demographics such as the demography 
of hard disk space, CPU power and viewers. In one embodiment, 
the demographics are used at the server to automatically select 
the contents to be transmitted to the particular client. Thus; 
the provider can send the most appropriate contents to the most 
appropriate client based on demographic information of the 
clients infrastructure. 
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